Sub a()
Dim i As Integer
For i = 0 To UBound(Split(SelectionAddress, ","))
MsgBox Split(Split(SelectionAddress, ",")(i), "$")(2)
Next
End Sub
刚才又思考了一下,下面代码更加简单实用强大。
Sub test()
For Each c In SelectionRows
MsgBox cRow
Next
End Sub
sub aa()
dim iRow,iCol
irow=range("B2")row
icol=range("B2")column
msgbox "B2单元格的行号是" & iRow &",列号是" & iCol
end sub
以上就是关于VBA如何得到选中的多行 的行号和列号全部的内容,包括:VBA如何得到选中的多行 的行号和列号、excel vba 单元格 行号 列号、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)