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

评论1,121字数 489阅读1分37秒阅读模式

本节知识点

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

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

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

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

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

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

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

 

语句执行演示

结果显示在立即窗口

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

部分文章来源于网络  如有侵权请告知本人立即删除!

站长邮箱447800330@qq.com

匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定