Conozco el nombre del rango del inicio de una lista - 1
columna de ancho y x
filas de profundidad.
¿Cómo calculo x
?
Hay más datos en la columna que esta lista. Sin embargo, esta lista es contigua - no hay nada en ninguna de las celdas por encima o por debajo o a ambos lados de ella.
Function ListRowCount(ByVal FirstCellName as String) as Long
With thisworkbook.Names(FirstCellName).RefersToRange
If isempty(.Offset(1,0).value) Then
ListRowCount = 1
Else
ListRowCount = .End(xlDown).row - .row + 1
End If
End With
End Function
Pero si usted está muy seguro de que no hay nada alrededor de la lista, a continuación, sólo thisworkbook.Names(FirstCellName).RefersToRange.CurrentRegion.rows.count
.
Estoy seguro de que probablemente querías la respuesta que dio @GSerg. También hay una función de hoja de cálculo llamada rows
que le dará el número de filas.
Así, si tienes un rango de datos llamado Datos
que tiene 7 filas, entonces =ROWS(Datos)
mostrará 7 en esa celda.
Esa última línea ha funcionado perfectamente @GSerg.
La otra función era en la que había estado trabajando pero no me gusta tener que recurrir a UDF's a no ser que sea absolutamente necesario.
Yo había estado tratando una combinación de excel y vba y había conseguido esto para trabajar - pero su torpe en comparación con su respuesta.
strArea = Sheets("Oper St Report CC").Range("cc_rev").CurrentRegion.Address
cc_rev_rows = "=ROWS(" & strArea & ")"
Range("cc_rev_count").Formula = cc_rev_rows