VBA 有效数据的行列数

Private Sub 有效行列数()
    Dim rows As Long
    Dim columns As Long
    Dim WS As Worksheet
    
    Worksheets("低值易耗品").Select
    Set WS = Worksheets("低值易耗品")
    '方法1
'     rows = Range("A" & ActiveSheet.rows.Count).End(xlUp).Row
'     columns = Cells(1, ActiveSheet.columns.Count).End(xlToLeft).Column
     '方法2
'     rows = Range("A1").End(xlDown).Row
'    columns = Range("A1").End(xlToRight).Column
     '方法3
     rows = ActiveSheet.UsedRange.rows.Count
     columns = ActiveSheet.UsedRange.columns.Count
     
     
    MsgBox "数据有效行数有" & rows & ",有效列数有" & columns
End Sub

注意方法1和方法2，所定位的单元格的行列上是要有数据的，否则所统计出来的数据不准确