¿Cómo recorrer filas hasta encontrar una celda en blanco en una columna de Excel?

Aquí hay una columna larga con datos que incluye algunas celdas vacías, y quieres recorrer las filas hasta encontrar una celda en blanco. En Excel, no hay una función integrada que pueda manejar esta tarea, pero puedo presentarte algunas macros para ayudarte.

Recorrer filas hasta encontrar una celda en blanco con VBA

Recorrer filas hasta encontrar una celda en blanco con VBA

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en el script en blanco.

VBA: Recorrer hasta encontrar una celda en blanco

Sub Test1()
'UpdatebyExtendoffice20161222
      Dim x As Integer
      Application.ScreenUpdating = False
      ' Set numrows = number of rows of data.
      NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
      ' Select cell a1.
      Range("A1").Select
      ' Establish "For" loop to loop "numrows" number of times.
      For x = 1 To NumRows
         ' Insert your code here.
         ' Selects cell down 1 row from active cell.
         ActiveCell.Offset(1, 0).Select
      Next
      Application.ScreenUpdating = True
End Sub

En el código, A1 es la primera celda desde la cual deseas comenzar el recorrido; puedes cambiarla según sea necesario.

3. Presiona F5 para comenzar a recorrer la columna, luego el cursor se detendrá en la primera celda en blanco encontrada.

Nota: Si deseas recorrer los datos hasta encontrar celdas en blanco consecutivas, puedes usar este código de macro.

Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
      ' Select cell A2, *first line of data*.
      Dim xrg As Range
      On Error Resume Next
      Set xrg = Application.InputBox _
        (Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
      xrg.Cells(1, 1).Select
      ' Set Do loop to stop when two consecutive empty cells are reached.
      Application.ScreenUpdating = False
      Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
         ' Insert your code here.
         '
         ' Step down 2 rows from present location.
         ActiveCell.Offset(2, 0).Select
      Loop
      Application.ScreenUpdating = False
End Sub

Luego necesitarás seleccionar la primera celda desde la cual deseas comenzar el recorrido en el cuadro de diálogo de Kutools para Excel, haz clic en Aceptar, y el cursor se detendrá en las primeras celdas en blanco consecutivas.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!