¿cómo crear filas usando vba en excel?
Para contar filas usando VBA, debe establecer el rango desde el cual desea contar filas, luego usar la propiedad de recuento y filas para obtener el número de filas de ese rango. También puedes usar un bucle para contar filas donde solo tienes datos.
Utilice VBA para contar filas
- Primero, debe definir el rango para el cual desea contar filas.
- Después de eso, use un punto (.) para abrir la lista de propiedades y métodos.
- A continuación, escriba o seleccione la propiedad «Líneas».
- Al final, utilice la propiedad «Contar».
![vba para contar filas](https://exceladvisor.org/wp-content/uploads/2023/08/1-vba-pour-compter-les-lignes.png)
Ahora, cuando ejecute este código, devolverá el número de filas y, para obtener el número, puede usar un cuadro de mensaje o ingresar directamente este valor en una celda también.
Sub vba_count_rows() Range("A1:A10").Rows.Count End Sub
Contar filas para el rango utilizado
Sub vba_count_rows2() MsgBox Worksheets("Sheet1").UsedRange.Rows.Count End Sub
Contar filas con datos usando VBA
También puede contar filas que contienen datos ignorando las filas vacías.
![contar-filas-con-datos-usando-vba](https://exceladvisor.org/wp-content/uploads/2023/08/2-lignes-de-comptage-avec-des-donnees-a-laide-de-vba.png)
El siguiente código tomará el rango utilizado como el rango para recorrer y recorrerá cada fila una por una y verificará si hay una celda que no esté vacía allí, y si está allí, la considerará como una fila con datos, y en Al final se muestra un cuadro de mensaje con el número total de líneas.
Sub vba_count_rows_with_data() Dim counter As Long Dim iRange As Range With ActiveSheet.UsedRange 'loop through each row from the used range For Each iRange In .Rows 'check if the row contains a cell with a value If Application.CountA(iRange) > 0 Then 'counts the number of rows non-empty Cells counter = counter + 1 End If Next End With MsgBox "Number of used rows is " & counter End Sub