第48讲第49讲--动态定位单元格区域1-End属性、动态定位单元格区域2、3-Currentregion UsedRange

动态定位单元格区域的方法

最新推荐文章于 2025-02-19 11:29:38 发布

原创

最新推荐文章于 2025-02-19 11:29:38 发布 · 1.4k 阅读

5 ·

CC 4.0 BY-SA版权

本文介绍了Excel中动态定位单元格区域的方法，包括使用End属性向上、下、左、右定位边界，以及CurrentRegion属性获取连续单元格区域。强调了End属性避免使用数字常量，推荐使用xlUp等枚举值，同时讨论了UsedRange属性的适用场景及其局限性。

1 单元格区域.
EntireRow返回该区域所在的整行对象单元格区域.
EntireColumn返回该区域所在的整列

'返回单元格所在的整行与整列，返回单元格对象
'EntireRow 与EntireColumn
Sub 整行与整列()
'    Range("a1").EntireColumn = 0
    Range("a1").EntireRow.Select
End Sub

2 单元格区域.Select方法，选中某区域。多见于演示
3 动态定位单元格对象区域(一)
单元格.End :
End属性返回单元格区域的边界单元格，从起始单元格出发可以分别向上下左右四个方向进行边界定位。
推荐使用End(xlup)向上,End(xldown)向下，End(xltoleft)向左,End(xltoright)向右这些参数而不要用1,2,3,4这些数字。
使用End定位边界时,往往倒着找的道理。

'单元格的边界定位属性
'End 属性的四个方向，从某一位置单元格出发，向四个方向寻找边界, 返回的是一个边界单元格对象
'从A1 出发向下寻找最后的边界单元格
'End 面临的问题 有空记录定位错误的问题
'倒着找,从最后一行向上倒着找，找到第一个有数据的单元格，一定是包含数据的最后一个边界单元格

Sub End演示1()
    Debug.Print Range("a1").End(xlDown).Row
End Sub

Sub End演示2()
    Debug.Print Range("a" & Rows.Count).End(xlUp).Row
End Sub

'End 一些不良用法：
'Range(“a65536”).end(3).row '有两点不好的传承
'65536 是Excel2003 或以前的行数限制，一旦你的数据超过65536行，边界定位代码就是错误的
'1048576 和65536 犯了同样的错误，如果你的代码移植到2003 或以前的Excel 上就会出问题
'Rows.Count 动态获取最后的行