Cacher is the code snippet organizer for pro developers

Sub get_selection() '选中多个单元格时，获得选中的内容
    Dim num1
    num1 = Selection.count
    Dim arr1
    arr1 = Split(Selection.Address, ",")
    For Each i In arr1
        Debug.Print Range(i).Value
        'Debug.Print Range(i).Row
        'Debug.Print Range(i).Column
    Next
End Sub