Menentukan jumlah baris dalam suatu rentang

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.

Larutan
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

Komentar (0)

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.

Komentar (1)

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
Komentar (0)