VBA - Range.Row.Count

前端 未结 10 1495
别那么骄傲
别那么骄傲 2020-12-24 13:23

I have written a simple code to illustrate my predicament.

Sub test()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets(\"Sheet1\")

    Dim k As Lon         


        
10条回答
  •  旧巷少年郎
    2020-12-24 13:50

    In case anyone looks at this again, you can use this:

    Sub test()
        Dim sh As Worksheet
        Set sh = ThisWorkbook.Sheets("Sheet1")
    
        Dim k As Long
        k = sh.Range("A1", sh.Range("A1").End(xlDown).End(xlDown).End(xlUp)).Rows.Count
    End Sub
    

提交回复
热议问题