Si lo usas sobre toda la hoja ( ActiveSheet.Rows.Count ), te devolverá el límite máximo de Excel (1,048,576 filas), no las filas que estás usando. 3. El método de región actual: CurrentRegion
Si tus datos son un bloque compacto (sin filas vacías de por medio), CurrentRegion es excelente. Equivale a presionar Ctrl + E o Ctrl + * .
Si borraste datos pero no guardaste, UsedRange puede seguir incluyendo esas filas vacías. Solución forzada: Antes de usar UsedRange , ejecuta hoja.UsedRange (solo para resetearlo). Veredicto: No lo recomiendo para conteos críticos.
En este ejemplo, se establece una referencia a la hoja de cálculo "Hoja1" y se muestra un mensaje con el número de filas en la hoja.
MsgBox "Number of rows with data in column A: " & rowCount
MsgBox "Descuento aplicado a " & (ultimaFila - 1) & " filas"
' Ejemplo de uso: Sub TestContarFilas() Dim total As Long total = ContarFilas(ActiveSheet, "A", False) MsgBox "Total filas ocupadas en columna A: " & total End Sub