Excel中如何用VBA得到最后一个单元格的地址

Question

如题所述

Answer 1

Sub 地址()

i = Worksheets("Sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
j = Worksheets("Sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Column
MsgBox "行号:" & i & "列号" & j
2
End Sub
说明:该代码获取的行号和列号,是行和列已使用单元格所组成的矩阵的最后一个单元格,即使最后一个单元格为空也要定位.