1
clic en la pestaña " desarrolladores" y haga clic en "Visual Basic " para abrir la ventana del editor de VB . Haga clic en el menú " Insertar" y haga clic en " módulos" para insertar un nuevo módulo
2
Crear un procedimiento sub añadiendo el siguiente código: .
Private Sub checkForBlankCell ()
3
Crear una variable entera y darle un valor de 1 :
Dim x As Integer
X = 1
4 < p> Agregar datos a las diez primeras filas de A1: .
Range (" A1") Seleccione
ActiveCell.FormulaR1C1 = " 1 " Rango
( "A2 " . ) Seleccione
ActiveCell.FormulaR1C1 = " 2 "
Range (" A1: A2" ). Seleccione
Selection.AutoFill Destination : = Range (" A1: A10 ") , Type : = xlFillDefault
Range (" A1: " . ) Seleccione
Range (" . A10 A1 ") Seleccione
5
Crear un bucle y comprobar si la celda está vacía mediante la función de las células " IsEmpty " y mostrar cada valor de la celda a través de la ventana Inmediato :
¿ Hasta IsEmpty ( ActiveCell.Value )
Range (" A" y X). Seleccione
Debug.Print ( ActiveCell.Value )
X = X + 1
Loop
6
Fin del procedimiento escribiendo "End Sub " y pulse " Ctrl" y " G" para abrir la ventana Inmediato. Haga clic en " F5 " para ejecutar el procedimiento .