seleccionar - Iterar a través de filas pobladas en Excel usando VBA

recorrer filas y columnas excel vba

Question

Así que estoy tratando de iterar a través de una hoja de trabajo en una hoja de cálculo de Excel usando VBA. Quiero iterar a través de cada fila, y luego a través de cada columna, ya pesar de buscar en Google, no puedo encontrar una manera intuitiva de hacerlo.

Supongo que la primera celda de una fila debe ser poblada, si no es así, entonces ese debe ser el final. Puedo hacer cumplir esto

Mi enfoque actual es recorrer las filas, luego intentar obtener el valor de la primera celda, pero no puedo resolverlo. He venido preguntas aquí y en otras partes sobre el uso de rangos y cosas así, pero nada que me ayude a escribir código.

El enfoque actual es:

Set sh = ActiveSheet
RowCount = 0
For Each rw In sh.Rows
''If Row.Cells(1, 1).Value = "" Then Exit For
RowCount = RowCount + 1
Next rw
MsgBox (RowCount)

Ahora cuando ejecuto esto, obtengo un gran número, lo que es incorrecto ya que la tabla solo tiene alrededor de 25 filas. Comenté la primera línea ya que no estaba funcionando.

¿Qué puedo cambiar en la primera línea de For Loop para romper correctamente cuando encuentra una fila donde la primera celda está vacía?

Answer 1

Para el beneficio de cualquiera que .UsedRange similar, vea la hoja de trabajo .UsedRange ,
por ejemplo ? ActiveSheet.UsedRange.Rows.Count ? ActiveSheet.UsedRange.Rows.Count
y bucles como
For Each loopRow in Sheets(1).UsedRange.Rows: Print loopRow.Row: Next

Answer 2

Parece que acaba de codificar la fila y la columna; de lo contrario, un par de pequeños retoques, y creo que estás allí:

Dim sh As Worksheet
Dim rw As Range
Dim RowCount As Integer
RowCount = 0
Set sh = ActiveSheet
For Each rw In sh.Rows
If sh.Cells(rw.Row, 1).Value = "" Then
Exit For
End If
RowCount = RowCount + 1
Next rw
MsgBox (RowCount)

Answer 3

Voy a hacer un par de suposiciones en mi respuesta. Supongo que sus datos comienzan en A1 y no hay celdas vacías en la primera columna de cada fila que tiene datos.

Este código:

1. Encuentra la última fila en la columna A que tiene datos
2. Pasa por cada fila
3. Encuentre la última columna en la fila actual con datos
4. Pasa por cada celda en la fila actual hasta la última columna encontrada.

Este no es un método rápido, pero se repetirá a través de cada uno de manera individual como lo sugirió es su intención.

Sub iterateThroughAll()
ScreenUpdating = False
Dim wks As Worksheet
Set wks = ActiveSheet
Dim rowRange As Range
Dim colRange As Range
Dim LastCol As Long
Dim LastRow As Long
LastRow = wks.Cells(wks.Rows.Count, "A").End(xlUp).Row
Set rowRange = wks.Range("A1:A" & LastRow)
''Loop through each row
For Each rrow In rowRange
''Find Last column in current row
LastCol = wks.Cells(rrow, wks.Columns.Count).End(xlToLeft).Column
Set colRange = wks.Range(wks.Cells(rrow, 1), wks.Cells(rrow, LastCol))
''Loop through all cells in row up to last col
For Each cell In colRange
''Do something to each cell
Debug.Print (cell.Value)
Next cell
Next rrow
ScreenUpdating = True
End Sub