楼上的说错了。
使用selection.address就可以得到所有被选择的单元格或者区域的绝对地址。。
selection。rows\columns可以得到选定的一个区域的左上角位置。
但是像你这样复杂的选中单元格,估计只能用for each 循环处理啦。
例如:
Sub work_in_selection()
Dim rag As Range
For Each rag In Selection
MsgBox ("单元格地址:" & rag.Address)
Next
End Sub
去百度