VBA返回选中单元格区域的行数、列数，以及活动单元格的行号和列号

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rows_count As Integer
    Dim rows_id As Integer
    Dim column_count As Integer
    Dim column_id As Integer
    column_count = Selection.Columns.Count ‘返回选择区域列数
    rows_id = ActiveCell.Row  ‘返回活动单元格的行号
    rows_count = Selection.Rows.Count  ‘返回选择区域的行数

    column_id = ActiveCell.Column  ‘返回活动单元格的列号
    MsgBox rows_count
    MsgBox column_count
    MsgBox column_id
    MsgBox rows_id
End Sub