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

本节知识点

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

2.在Excel2010帮助中选中相关参数后,按F1可调出帮助文件并搜索出相关内容图片[1]-ExcelVBA | 获取指定单元格的最后行列非空单元格-习听风雨

图片[2]-ExcelVBA | 获取指定单元格的最后行列非空单元格-习听风雨

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

图片[3]-ExcelVBA | 获取指定单元格的最后行列非空单元格-习听风雨

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

图片[4]-ExcelVBA | 获取指定单元格的最后行列非空单元格-习听风雨

 

语句执行演示

结果显示在立即窗口

图片[5]-ExcelVBA | 获取指定单元格的最后行列非空单元格-习听风雨

代码区域

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

「如果文章对您有用,欢迎点赞分享。」
© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享
评论 抢沙发

请登录后发表评论

    请登录后查看评论内容