Contar Numero De Filas En Excel Vba • Full & Limited

MsgBox "Number of rows: " & rowCount End Sub Sub CountRowsInColumn() Dim rowCount As Long ' Count rows with data in column A (active sheet) rowCount = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

' Find last row with data in column A On Error Resume Next lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row On Error GoTo 0 contar numero de filas en excel vba

' Check if sheet is empty If lastRow = 1 And IsEmpty(ws.Range("A1")) Then lastRow = 0 End If MsgBox "Number of rows: " & rowCount End