本节知识点
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
部分文章来源于网络 如有侵权请告知本人立即删除!
站长邮箱447800330@qq.com