VBA如何得到选中的多行 的行号和列号

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

iRows=activesheetusedrangerowscount

iColumns=activesheetusedrangeColumnscount

'如果表格前面的几行或几列可能是空的，需要获得最下面的行数和最右面的列数：

with activesheetusedrange

iEndRow=rowscount+row-1

iEndColumn=Columnscount+column-1

end with

1、可以用InStr(查找的单元格或文本,查找的内容)这个来查找，用“row”来获取行号

假设你要查找A列里包含“中国”内容的单元格可以这么写

For i = 1 To Cells(65536, 1)End(xlUp)Row '获取A列最后一个含有数值单元格的位置，并设定循环数

If InStr(Cells(i, 1), "中国") Then '如果单元格中含有“中国”则将行号显示到B列相应的单元格中

Cells(i, 2) = Cells(i, 1)row

End If

Next i

2、获取数据的话可以用“变量=cells(行号,列号)”来获取

不过我对VBA属于初学，肯定还有比我这个跟好的写法，所以写的有什么的不对的地方还请见谅^_^

以上就是关于VBA如何得到选中的多行 的行号和列号全部的内容，包括:VBA如何得到选中的多行 的行号和列号、在VBA里如何获取当前工作表里数据的行数和列数、excel vba如何查询某单元格所在行等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！