获取一个表格的行数和列数

Private Function get_clo_num()
    Dim clo_num As Integer
    Dim clo_rng As Range
    
    Set clo_rng = Range(Cells(1, 1), Cells(1, 1).End(xlToRight))
    clo_num = Application.WorksheetFunction.CountA(clo_rng)
    get_clo_num = clo_num
End Function

Private Function get_row_num()
    Dim row_num As Long
    Dim row_rng As Range
    
    Set row_rng = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
    row_num = Application.WorksheetFunction.CountA(row_rng)
    get_row_num = row_num
End Function