Tabla de contenido
Si está buscando alguna de las formas más sencillas de contar filas con datos en una columna utilizando Excel VBA Entonces, empecemos con nuestro artículo principal para saber más sobre cómo contar filas con datos en una columna fácilmente.
Descargar el cuaderno de ejercicios
Contar Filas con Datos.xlsm9 Maneras de Contar Filas con Datos en Columna Usando Excel VBA
Tenemos el siguiente conjunto de datos que contiene registros de ventas de una empresa. Utilizaremos diferentes columnas con datos de este conjunto de datos para explicar diferentes formas de contar filas en función de los datos de una columna.
Hemos utilizado Microsoft Excel 365 aquí, puede utilizar cualquier otra versión según su conveniencia.
Método-1: Uso de la Propiedad Rows.Count de VBA para Contar Filas con Datos en Columna en Excel
En este caso, contaremos las filas del Ventas con los valores de venta de los productos que utilizan el Propiedad Count de VBA .
Paso-01 :
➤ Ir a Desarrollador Pestaña Visual Basic Opción.
Entonces, el Editor de Visual Basic se abrirá.
➤ Ir a Inserte Pestaña Módulo Opción.
Después de eso, un Módulo se creará.
Paso-02 :
➤ Escribe el siguiente código
Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Number of used rows is " & X End Sub Aquí, hemos declarado X como Entero , "D4:D11" es el rango en base al cual estamos contando filas y finalmente hemos asignado el número de fila a X .
Un buzón de mensajes ( MsgBox ) nos dará como resultado el número total de filas.
➤ Prensa F5 .
A continuación, obtendrá el número total de filas con datos como 8 de la Ventas en un cuadro de mensaje.
Más información: Excel VBA para Contar Filas con Datos (4 Ejemplos)
Método-2: Uso de la Propiedad End para Contar Filas con Datos en Columna
En esta sección, utilizaremos el Fin de la propiedad de VBA para contar las filas con valores de venta del Ventas columna.
Pasos :
➤ Seguir Paso-01 de Método 1 .
➤ Escribe el siguiente código
Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Number of used rows is " & (X - 3) End Sub Aquí, hemos declarado X como Entero , "D4" es el valor de inicio del rango en base a qué columna estamos contando filas y finalmente hemos asignado el número de fila a X . X nos dará el número de la última fila utilizada, no el total de filas utilizadas de esta columna. Por lo tanto, para obtener el número total de filas hemos restado 3 ( Fila inicial Número-1 = 4-1 = 3 ) de X .
Un buzón de mensajes ( MsgBox ) aparecerá con el número total de filas.
➤ Prensa F5 .
Después, tendrá 8 como el número total de filas del Ventas en un cuadro de mensaje.
Read More: Cómo Contar Filas con Datos en Excel (4 Fórmulas)
Método-3: Usando la combinación de la propiedad Rows.Count y la propiedad End
Aquí utilizaremos la combinación de las dos propiedades de VBA como el Propiedad Count y el Fin de la propiedad juntos para contar el total de filas del Ventas columna.
Pasos :
➤ Seguir Paso-01 de Método 1 .
➤ Escribe el siguiente código
Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Number of used rows is " & (X - 3) End Sub Aquí, hemos declarado X como Entero , 4 en (Recuento de filas, 4) es para el Ventas en base a qué columna estamos contando filas y finalmente hemos asignado el número de fila a X .
X devolverá el número de la última fila utilizada, no el total de filas utilizadas de esta columna. Por lo tanto, para obtener el número total de filas hemos restado 3 ( Fila inicial Número-1 = 4-1 = 3 ) de X .
Un buzón de mensajes ( MsgBox ) aparecerá con el número total de filas.
➤ Prensa F5 .
Después, obtendremos 8 como el número total de filas del Ventas en un cuadro de mensaje.
Contenido relacionado: Cómo contar filas con múltiples criterios en Excel (6 métodos)
Método-4: Uso de la Propiedad de Selección de VBA para Contar Filas con Datos en Columna en Excel
Puede utilizar la función Propiedad de selección también para contar el total de filas basándose en los datos del Ventas columna.
Pasos :
➤ Seguir Paso-01 de Método 1 .
➤ Escribe el siguiente código
Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "El número de filas utilizadas es " & X End Sub Aquí, hemos declarado X como Entero , aquí se contarán las filas del rango seleccionado y, por último, hemos asignado el número de fila a X .
Un buzón de mensajes ( MsgBox ) nos dará como resultado el número total de filas.
A continuación, tenemos que volver a la hoja principal.
➤ Seleccione el rango de la Ventas y, a continuación, vaya a la columna Desarrollador Pestaña Macros Opción.
Después, el Macro aparecerá un cuadro de diálogo.
➤ Seleccione el Nombre de la macro filas4 y, a continuación, pulse la tecla Ejecutar opción.
Finalmente, aparecerá el siguiente mensaje "El número de filas utilizadas es 8" .
Read More: Cómo contar filas con VBA en Excel (5 enfoques)
Método-5: Contar Filas con Datos en Columna Usando la Función FIND
En este caso, utilizaremos el Función FIND para contar las filas con cadenas de texto en el Región columna.
Pasos :
➤ Seguir Paso-01 de Método 1 .
➤ Escribe el siguiente código
Sub CountRows5() Dim X As Integer Dim rng As Range Set rng = Range("C4:C11") With rng X = .Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row End With MsgBox "Number of used rows is " & (X - 3) End Sub Aquí, hemos declarado X como Entero , rng como Gama , "C4:C11" es el rango en base a cuya columna estamos contando filas y finalmente lo hemos asignado a rng .
Hemos utilizado el CON para evitar la repetición de usar el nombre del objeto como rng .
Utilización de la Función FIND , X nos dará el número de la última fila utilizada, no el total de filas utilizadas de esta columna. Por lo tanto, para obtener el número total de filas hemos restado 3 ( Fila inicial Número-1 = 4-1 = 3 ) de X .
Un buzón de mensajes ( MsgBox ) aparecerá con el número total de filas.
➤ Prensa F5 .
Por último, tendrá 8 como el número total de filas del Ventas en un cuadro de mensaje.
Contenido relacionado: Excel Contar Filas Visibles (Fórmula y Código VBA)
Lecturas similares:
- Contar Filas en Grupo con Tabla Dinámica en Excel (Guía Paso a Paso)
- Excel VBA: Contar Filas en una Hoja (5 Ejemplos)
Método-6: Contar Filas No en Blanco con Datos en Columna Usando VBA
Aquí, tenemos algunas celdas en blanco en el Ventas (hemos eliminado algunos valores para este método) y utilizando una columna VBA sólo contaremos el número total de filas con valores.
Pasos :
➤ Seguir Paso-01 de Método 1 .
➤ Escribe el siguiente código
Sub countrows6() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountA(Y)> 0 Then X = X + 1 End If Next End With MsgBox "Number of used rows is " & X End Sub Aquí, hemos declarado X como Largo , Y y rng como Gama , "D4:D11" es el rango en base a cuya columna estamos contando filas y finalmente lo hemos asignado a rng .
En PARA comprobará si cada una de las celdas de este rango contiene algún valor utilizando la función Función COUNTA y para las celdas que tienen valores X se incrementará en 1 cada vez.
Por último, obtendremos los números totales de las filas con celdas no en blanco a través de un cuadro de mensaje.
➤ Prensa F5 .
Con el tiempo, tendrá 5 como el número total de filas no en blanco del Ventas en un cuadro de mensaje.
Read More: Cómo contar filas filtradas en Excel con VBA (Guía paso a paso)
Método-7: Contar filas con un valor específico
Aquí, contaremos el número total de filas con un valor de ventas de $2,522.00 del Ventas columna.
Pasos :
➤ Seguir Paso-01 de Método 1 .
➤ Escribe el siguiente código
Sub countrows7() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, 2522)> 0 Then X = X + 1 End If Next End With MsgBox "Number of used rows is " & X End Sub Aquí, hemos declarado X como Largo , Y y rng como Gama , "D4:D11" es el rango en base a qué columna estamos contando filas y finalmente lo hemos asignado a rng .
En PARA el bucle comprobará si alguna de las celdas de este rango contiene el valor de ventas 2522 utilizando el Función COUNTIF y para las celdas que tengan este valor, X se incrementará en 1 cada vez.
Por último, obtendremos los números totales de las filas con el valor de 2522 a través de un buzón de mensajes.
➤ Prensa F5 .
En última instancia, tendrá 3 como el número total de filas del Ventas que contiene el valor de venta de $2,522.00 en un cuadro de mensaje.
Read More: Excel VBA: Contar Filas con Datos Específicos (8 Ejemplos)
Método-8: Contar Filas con Valores Mayores que un Valor Específico
En esta sección, contaremos el número total de filas con valores superiores a $3000.00 en el Ventas columna.
Pasos :
➤ Seguir Paso-01 de Método 1 .
➤ Escribe el siguiente código
Sub countrows8() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, ">3000")> 0 Then X = X + 1 End If Next End With MsgBox "Number of used rows is " & X End Sub Aquí, hemos declarado X como Largo , Y y rng como Gama , "D4:D11" es el rango en base a cuya columna estamos contando filas y finalmente lo hemos asignado a rng .
En PARA comprobará si alguna de las celdas de este rango contiene un valor de ventas superior a 3000 utilizando el Función COUNTIF (o puede probar por cualquier otra condición como menor que, mayor que, o igual a, etc.) y por las celdas que tengan este valor, X se incrementará en 1 cada vez.
Por último, obtendremos el total de filas con valores superiores a 3000 a través de un buzón de mensajes.
➤ Prensa F5 .
Después, tendrá 3 como el número total de filas del Ventas que contiene los valores de ventas superiores a $3,000.00 en un cuadro de mensaje.
Read More: Cómo Excel Cuenta Filas con Valor (8 Maneras)
Método-9: Contar Filas con una Cadena de Texto Específica
Aquí obtendremos el número de filas que contiene manzana exacta o parcialmente en el Producto columna.
Pasos :
➤ Seguir Paso-01 de Método 1 .
➤ Escribe el siguiente código
Sub countrows9() Dim X As Long Dim Y, rng As Range Set rng = Range("B4:B11") With rng For Each Y In .Rows If Application.CountIf(Y, "*apple*")> 0 Then X = X + 1 End If Next End With MsgBox "Number of used rows is " & X End Sub Aquí, hemos declarado X como Largo , Y y rng como Gama , "B4:B11" es el rango en base a qué columna estamos contando filas y finalmente lo hemos asignado a rng .
En PARA comprobará si alguna de las celdas de este rango contiene la cadena de texto "aplicar" utilizando el Función COUNTIF (en este caso, contará tanto las coincidencias exactas como las parciales mediante el uso de la opción Asterisco antes y después de la cadena), y para las celdas que tengan este valor, X se incrementará en 1 cada vez.
Por último, obtendremos los números totales de las filas con la cadena de texto manzana a través de un buzón de mensajes.
➤ Prensa F5 .
Entonces, tendrá 2 como el número total de filas del Producto columna que contiene las cadenas de texto Manzana y Piña en un cuadro de mensaje.
Más información: Cómo Contar Filas con Texto en Excel (Las 8 Formas Más Fáciles)
Sección práctica
Para hacer prácticas por su cuenta hemos proporcionado un Práctica en una hoja denominada Práctica Por favor, hazlo tú mismo.
Conclusión
En este artículo, tratamos de cubrir las formas de contar filas con datos en una columna utilizando Excel VBA Si tienes alguna sugerencia o pregunta, no dudes en compartirla en la sección de comentarios.
