如何在vba中得到当前单元格的行号和列号

1、第一种方法： ActiveSheetRange("A" & RowsCount)End (xlUp)Row

2、第二种方法：ActiveSheetRange("a1048576")End(xlUp)Row

如果是低版本的OFFICE用ActiveSheetRange("a65536")End(xlUp)Row

3、第三种方法：ActiveSheetCells(RowsCount,1)End(3)Row

4、第四种方法：ActiveSheetrange("A1")CurrentRegionRowsCount

5、第五种方法：ActiveSheetCellsSpecialCells(xlCellTypeLastCell)Row

6、第六种方法：ActiveSheetUsedRangeSpecialCells(xlCellTypeLastCell)Row

7、第七种方法：MaxRow  =ApplicationEvaluate("=MAX((A1:A1048576<>"""")ROW(1:1048576))")

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

1、同时按下“win+R”键，在打开的运行对话框中输入“excel”回车，打开一个新建的excel文档。

2、在打开的excle窗口，依次点击工具栏“开发工具”——“Visual Basic”或直接按快捷键“ALT+F11”,打开VB编辑器。

3、双击左侧工程窗口中的“sheet1”，打开“sheet1”代码编辑窗口。

4、在代码窗口的下拉框中，分别选择“Worksheet”、"SelectionChange",下面会自动生成相应的过程块代码。

5、在过程中写入代码：

If (TargetColumnsCount = Sheet1ColumnsCount) And (TargetRow <= Range("b4")Row) And (TargetRow + TargetRowsCount > Range("b4")Row) Then

MsgBox "yes" 

Else 

MsgBox "no" 

End If

6、再回到excel窗口，测试一下代码是否能够正确运行，可以看到结果很成功。

以上就是关于如何在vba中得到当前单元格的行号和列号全部的内容，包括:如何在vba中得到当前单元格的行号和列号、VBA如何得到选中的多行 的行号和列号、Excel中如何用VBA判断行数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！