A continuación, veremos un programa en Excel VBA ese elimina celdas en blanco .
Situación:
¿Qué función puede devolver automáticamente valores en Excel?
1. Primero, declaramos dos variables de tipo Integer. Un contador con nombre y otro con nombre i. Inicializamos el contador de variables con valor 0.
NingunoencimeraComo Entero, IComo Enterocontador = 0
2. A continuación, verificamos para cada celda si está vacía o no (significa que no es igual a). Estamos usando un bucle para esto. Si no está vacío, escribimos el valor en la columna B. El contador mantiene un registro 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 parte del programa tiene el siguiente aspecto:
Parai = 1Para10
SiCeldas (i, 1) .Valor ''Luego
Celdas (contador + 1, 2) .Valor = Celdas (i, 1) .Valor
contador = contador + 1
Fin Si
próximoI
Resultado hasta ahora:
3. Por último, vaciamos Range ('A1: A10'), copiamos los valores de la columna B en la columna A y vaciamos Range ('B1: B10').
Rango ('A1: A10'). Valor = ''Rango ('A1: A10'). Valor = Rango ('B1: B10'). Valor
Rango ('B1: B10') = ''
Resultado:
Ir al capítulo siguiente: Círculo
