Note: The other languages of the website are Google-translated. Back to English

¿Cómo recorrer las filas hasta que estén en blanco en la columna de Excel?

Aquí hay una columna larga con datos que incluye algunas celdas vacías, y desea recorrer las filas hasta encontrar la celda en blanco. En Excel, no hay una función incorporada que pueda manejar este trabajo, pero puedo presentar algunas macros para hacerle un favor.

Recorra las filas hasta que estén en blanco con VBA


flecha azul burbuja derecha Recorra las filas hasta que estén en blanco con VBA

1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Móduloy pegue el código siguiente en el script en blanco.

VBA: bucle hasta 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

doc loop hasta que esté en blanco 1

En el código, A1 es la primera celda desde la que desea realizar un bucle, puede cambiarla según lo necesite.

3. Prensa F5 para comenzar a recorrer la columna, el cursor se detendrá en la primera celda en blanco que se encuentre.
doc loop hasta que esté en blanco 2

Nota:: Si desea recorrer los datos hasta encontrar celdas en blanco continuas, puede 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, debe seleccionar la primera celda desde la que desea realizar un bucle en el Kutools for Excel diálogo, haga clic OK, luego el cursor se detiene en las primeras celdas continuas en blanco.

doc loop hasta que esté en blanco 3 doc loop hasta que esté en blanco 4

Combine fácilmente varias hojas / libro de trabajo en una sola hoja o libro de trabajo

Combinar varias hojas o libros de trabajo en una sola hoja o libro de trabajo puede ser complicado en Excel, pero con la Combinar función en Kutools para Excel, puede combinar fusionar docenas de hojas / libros de trabajo en una hoja o libro de trabajo, también, puede consolidar las hojas en una por varios clics solamente.  Haga clic para ver todas las funciones 30 días de prueba gratis!
combinar sábanas
 
Kutools for Excel: con más de 300 prácticos complementos de Excel, gratis para probar sin limitación en 30 día.

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (7)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Está recorriendo una columna, no una fila
Este comentario fue minimizado por el moderador en el sitio
Para recorrer una columna, debe ir por número de fila.
Este comentario fue minimizado por el moderador en el sitio
¿Puede explicar cuál es la condición para detener el bucle? ¿Qué te hace salir del bucle en Test1()?
Este comentario fue minimizado por el moderador en el sitio
Se detendrá al encontrar el primer espacio en blanco en la columna.
Este comentario fue minimizado por el moderador en el sitio
Digamos que tengo un montón de filas... ¿algún truco para hacer que esto funcione más rápido?
Este comentario fue minimizado por el moderador en el sitio
El ciclo funciona para mí, excepto que recorre cada fila, independientemente de que esté en blanco o no.
Este comentario fue minimizado por el moderador en el sitio
El primer VBA produce un resultado incorrecto en los casos en que hay una o cero filas de datos.

Probablemente necesites algo como

Si Rango("A1").Valor = "" Entonces
Número de filas = 0
ElseIf Range("A1").Offset(1, 0).Valor = "" Entonces
Número de filas = 1
otro
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
Si terminar
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL