ExcelVBA | 获取指定单元格的最后行列非空单元格

本节知识点

1.Debug.Print rng.Address是将运行结果显示在立即显示窗口

2.在Excel2010帮助中选中相关参数后，按F1可调出帮助文件并搜索出相关内容

3.按F8逐行运行时，鼠标放到参数上可显示实时值

4.代码换行：空格+下划线

语句执行演示

结果显示在立即窗口

代码区域

Sub lastrow()
    Sheet1.Activate
    Dim rng As Range
    Set rng = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp)
    Debug.Print rng.Address
    
End Sub


Sub lastcolumn()
    Dim rng As Range
    Set rng = Sheet1.cells(3, ActiveSheet.Columns.Count). _
    End(xlToLeft) 'Activesheet表示当前激活的表
    Debug.Print rng.Address(0, 1)
    'Address后面两个参数可省略,表示绝对引用,更多知识参看帮助
    Debug.Print "行号" & rng.Row; "列号" & rng.Column
    '立即显示rng的列号
End Sub