Saya tahu nama rentang awal daftar - lebar kolom 1
dan kedalaman x
baris.
Bagaimana cara menghitung x
?
Ada lebih banyak data di kolom daripada hanya daftar ini. Namun, daftar ini bersebelahan - tidak ada apa pun di sel mana pun di atas atau di bawah atau di kedua sisi di sampingnya.
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
Tetapi jika Anda sangat yakin tidak ada apa-apa di sekitar daftar, maka cukup thisworkbook.Names(FirstCellName).RefersToRange.CurrentRegion.rows.count
Saya yakin Anda mungkin menginginkan jawaban yang diberikan @GSerg. Ada juga fungsi lembar kerja yang disebut rows
yang akan memberi Anda jumlah baris.
Jadi, jika Anda memiliki rentang data bernama Data
yang memiliki 7 baris, maka =ROWS(Data)
akan menampilkan 7 di sel itu.
Satu baris terakhir itu bekerja dengan sempurna @GSerg.
Fungsi lain adalah apa yang telah saya kerjakan tetapi saya tidak suka harus menggunakan UDF' kecuali benar-benar diperlukan.
Saya telah mencoba kombinasi excel dan vba dan telah berhasil - tetapi kikuk dibandingkan dengan jawaban Anda.
strArea = Sheets("Oper St Report CC").Range("cc_rev").CurrentRegion.Address
cc_rev_rows = "=ROWS(" & strArea & ")"
Range("cc_rev_count").Formula = cc_rev_rows