第1个回答 推荐于2017-12-16
Sub a()
Dim i As Integer
For i = 0 To UBound(Split(Selection.Address, ","))
MsgBox Split(Split(Selection.Address, ",")(i), "$")(2)
Next
End Sub
刚才又思考了一下,下面代码更加简单实用强大。
Sub test()
For Each c In Selection.Rows
MsgBox c.Row
Next
End Sub本回答被提问者采纳
第2个回答 2010-03-02
选中一行,选中连接多行,选中不连接多行都适用,请测试:
(刚才的有问题,又改了一下)
Sub b()
If Selection.Address Like "*,*" Then
p = Split(Selection.Address, ",")
For i = LBound(p) To UBound(p)
q = Split(p(i), "$")
MsgBox q(UBound(q))
Next
Else
p = Split(Selection.Address, "$")
For i = Replace(p(1), ":", "") To p(2)
MsgBox i
Next
End If
End Sub
这是选中整行的,如果你选中的是区域就有问题,有问题的话Q我的EXCEL群找吧,这里不让再改了——84253041