A continuación veremos un programa en Excel VBA que borra las celdas en blanco .
Situación:
1. Primero, declaramos dos variables de tipo Entero. Una llamada contador y otra llamada i. Inicializamos la variable contador con el valor 0.
Contador Dim como un número entero, i como un número entero contador = 0
2. A continuación, comprobamos para cada celda si está vacía o no (<¡significa que no es igual a). Para ello utilizamos un bucle. Si no está vacía, escribimos el valor en la columna B. El contador lleva la cuenta del número de celdas que se han copiado en la columna B. Cada vez que copiamos un valor en la columna B, incrementamos el contador en 1. Esta pieza del programa tiene el siguiente aspecto:
Para i = 1 a 10 Si Cells(i, 1).Value <> «» Entonces Células(contador + 1, 2).Valor = Células(i, 1).Valor contador = contador + 1 Finalizar si Siguiente…
Resultado hasta ahora:
3. Finalmente, vaciamos Range(«A1:A10»), copiamos los valores de la columna B a la columna A, y vaciamos Range(«B1:B10»).
Rango(«A1:A10»).Valor = «» Rango(«A1:A10»).Valor = Rango(«B1:B10»).Valor Rango(«B1:B10») = «»
Resultado:
