Excel_VBA 获取单元格的基本信息

04080获取单元格区域的行数
Public Sub 4_080()
    Dim myRange As Range
    Set myRange = ActiveSheet.UsedRange   '指定任意的单元格区域
    MsgBox "指定单元格区域的行数为 " & myRange.Rows.Count
End Sub
04081获取单元格区域的列数：
Public Sub 4_081()
    Dim myRange As Range
    Set myRange = ActiveSheet.UsedRange   '指定任意的单元格区域
    MsgBox "指定单元格区域的列数为 " & myRange.Columns.Count
End Sub