Recuento de filas de VBA: ¿cómo contar el número de filas utilizadas en VBA?

Tabla de contenido

Recuento de filas de Excel VBA

En la programación de VBA, hacer referencia a las filas también es más importante y contar filas es una de las cosas que debe tener en cuenta cuando se trata de la codificación de VBA. Hay mucho valor que podemos obtener si podemos comprender la importancia de contar filas que tienen datos en la hoja de trabajo. En este artículo, le mostraremos cómo contar filas usando la codificación VBA.

¿Cómo contar filas en VBA?

Ejemplo 1

Para contar filas, necesitamos hacer uso del objeto RANGE, en este objeto, necesitamos usar el objeto ROWS, y en esto, necesitamos usar la propiedad COUNT.

Por ejemplo, mire los datos a continuación en Excel.

A partir de los datos anteriores, necesitamos identificar cuántas filas hay desde el rango A1 a A8. Primero defina la variable como un número entero para almacenar el número de filas.

Código:

Sub Count_Rows_Example1 () Dim No_Of_Rows como entero End Sub

Para esta variable, asignaremos números de fila, así que ingrese el nombre de la variable y saque el signo igual.

Código:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub

Necesitamos proporcionar un rango de celdas, así que abra el objeto RANGE y proporcione el rango como “A1: A8”. Código:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Rango ("A1: A8") End Sub

Una vez que se proporciona el rango, necesitamos contar el número de filas, así que elija la propiedad ROWS del objeto RANGE.

En la propiedad ROWS del objeto RANGE estamos contando un número de filas, así que elija la propiedad "COUNT" ahora.

Ahora, en el cuadro de mensaje, muestre el valor de la variable.

Código:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Rango ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub

Ahora ejecute el código y vea el recuento de filas del rango de celdas proporcionado.

Ok, se proporcionan 8 filas para el rango, por lo que el recuento de filas es 8 en el cuadro de mensaje.

Ejemplo # 2

También tenemos otras formas de contar filas, para el método anterior, necesitamos proporcionar un rango de celdas, y en este rango de celdas, muestra el número de filas seleccionadas.

Pero imagine el escenario en el que necesitamos encontrar el último uso de cualquier columna, por ejemplo, tome los mismos datos que se ven arriba.

Para pasar a la última celda utilizada de la celda A1, presionamos la tecla de acceso directo de Excel “Ctrl + Flecha abajo” , por lo que lo llevará a la última celda antes de la celda vacía.

Primero, proporcione la celda como A1 usando el objeto RANGE.

Código:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Rango ("A1") MsgBox No_Of_Rows End Sub

Desde esta celda, necesitamos movernos hacia abajo, y en la hoja de trabajo, usamos Ctrl + Flecha hacia abajo, pero en VBA usamos la propiedad END, elegimos esta propiedad y abre el corchete para ver las opciones.

Mire allí con la tecla END, podemos ver todas las teclas de flecha como "xlDown, xlToLeft, xlToRight y xlUp" ya que necesitamos movernos hacia abajo para usar la opción "xlDown".

Código:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub

Esto lo llevará a la última celda antes de cualquier descanso, ahora en la celda activa necesitamos el número de fila, así que use la propiedad FILA.

Código:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub

OK hecho. Ahora, esto mostrará el último número de fila, y ese será el recuento de varias filas.

Entonces, en filas, tenemos datos.

Ejemplo n. ° 3: buscar la última fila utilizada

Encontrar la última fila utilizada es tan importante para decidir cuántas veces debe ejecutarse el ciclo y también en el método anterior la última fila se detiene para seleccionar si hay alguna celda de punto de interrupción, por lo que en este método, podemos encontrar la última fila utilizada sin cualquier problema.

Abra la propiedad CELL.

Código:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (MsgBox No_Of_Rows End Sub

Ahora necesitamos mencionar el número de fila para comenzar, el problema aquí es que no estamos seguros de cuántas filas de datos tenemos, así que lo que podemos hacer es ir directamente a la última fila de la hoja de trabajo, para esta mención FILAS .COUNT propiedad.

Código:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub

A continuación, debemos mencionar en qué columna encontramos la última fila utilizada, por lo que en este caso, estamos encontrando en la primera columna, así que mencione 1.

Código:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) MsgBox No_Of_Rows End Sub

En este momento, lo llevará a la última celda de la primera columna, de ahí en adelante debemos movernos hacia arriba para ir a la última celda utilizada, así que use la propiedad End (xlUp).

Código:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) MsgBox No_Of_Rows End Sub

Entonces, esto lo llevará a la última celda utilizada de la columna 1, y en esta celda, necesitamos el número de fila, así que use la propiedad ROW para obtener el número de fila.

Código:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox No_Of_Rows End Sub

Cosas para recordar

  • COUNT dará un número de filas en la hoja de trabajo.
  • Si tiene un rango, le dará una cantidad de filas seleccionadas en el rango.
  • La propiedad ROW devolverá el número de fila de celda activa.

Articulos interesantes...