목록 시작 부분의 범위 이름(폭 '1'열, 깊이 'x'행)을 알고 있습니다.
x`는 어떻게 계산하나요?
열에 이 목록보다 더 많은 데이터가 있습니다. 그러나 이 목록은 위나 아래 또는 양쪽 셀에 아무 것도 없는 연속적인 목록입니다.
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
하지만 목록에 아무것도 없는 것이 확실하다면 이 통합 문서 이름(첫 번째 셀 이름).참조 범위.현재 지역.행 수
만 있으면 됩니다.
마지막 한 줄이 완벽하게 작동했습니다 @GSerg.
다른 기능은 제가 작업하던 것이었지만 꼭 필요한 경우가 아니면 UDF에 의존하는 것을 좋아하지 않습니다.
나는 엑셀과 vba의 조합을 시도하고 있었고 이것을 작동 시켰지만 귀하의 답변에 비해 투박합니다.
strArea = Sheets("Oper St Report CC").Range("cc_rev").CurrentRegion.Address
cc_rev_rows = "=ROWS(" & strArea & ")"
Range("cc_rev_count").Formula = cc_rev_rows