A continuación vamos a ver un programa en Excel VBA que elimina las células blanco.

Situación:

Delete Blank Cells in Excel VBA

  1. En primer lugar, declaramos dos variables de tipo entero. Un llamado contador y uno llamado i. Inicializamos la variable contador con el valor 0.

Dim counter As Integer, i As Integer

counter = 0

  1. A continuación, se mide para cada célula si está vacía o no (<> medio que no igual a). Estamos utilizando un bucle para esto. Si no está vacía, se escribe el valor de la columna B. El contador mantiene un registro del número de células que se han copiado en la columna B. Cada vez que se copia un valor de la columna B, que se incrementan en contra 1. Esta pieza del programa es el siguiente:

For i = 1 To 10

If Cells(i, 1).Value <> "" Then

Cells(counter + 1, 2).Value = Cells(i, 1).Value

counter = counter + 1

End If

Next i

Como resultado hasta el momento:

Write non Empty Cells to next Column

  1. Por último, vaciamos Range ( «A1: A10»), copie los valores de la columna B de la columna A, y vaciar Range ( «B1: B10»).

Range("A1:A10").Value = ""

Range("A1:A10").Value = Range("B1:B10").Value

Range("B1:B10") = ""

Resultado:

Delete Blank Cells Result