¿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
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
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.
Note: 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 SubLuego, 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.
 |
 |
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 obtener una prueba gratuita de 30 días con todas las funciones! |
 |
| Kutools para Excel: con más de 300 prácticos complementos de Excel, prueba gratis sin límite en 30 días. |
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!
