【原创】VBA学习笔记（20） range().end() 或 cells().end() 的用法

奔跑的犀牛先生

已于 2023-03-17 17:35:27 修改

阅读量1.9w

点赞数 7

分类专栏： VBA 文章标签：学习 python numpy

于 2019-04-15 08:19:31 首次发布

本文链接：https://blog.csdn.net/xuemanqianshan/article/details/89305212

版权

VBA 专栏收录该内容

184 篇文章

订阅专栏

1 Range().End() 或 cells().End() 属性

1.1 单元格的end属性

两种写法都可以
range().end()
cells().end()

1.2 返回的内容

返回一个 Range 对象
该对象代表包含源区域的区域尾端的单元格。
等同于按键 (End+向上键、End+向下键、End+向左键、End+向右键)
或等同于CTRL+上下左右

2 使用详解

2.1 详细语法

表达式一个代表 Range 对象的变量。（用数值1,2,3,4 代表也是可以的）
向左 xlToLeft -------1，实际使用时，是以当前range()为基点，先左移一格，然后去找
向右 xlToRight -----2，实际使用时，是以当前range()为基点，先右移一格，然后去找
向上 xlUp -----------3，实际使用时，是以当前range()为基点，先上移一格，然后去找
向下 xlDown -------4，实际使用时，是以当前range()为基点，先下移一格，然后去找

理解先偏移1格再找区域的意思
理解从“源区域” 作为起始点，去找这个源区域相连的使用区域的边界
如果源区域本身为空，会找一个相连的整块空区域

sub test1()

'确定的区域，测试单元格1
Debug.Print Range("b5").End(xlUp).Row
Debug.Print Range("b5").End(xlDown).Row
Debug.Print Range("b5").End(xlToLeft).Column
Debug.Print Range("b5").End(xlToRight).Column
Debug.Print

'确定的区域，测试单元格1
Debug.Print Range("b3").End(xlUp).Row
Debug.Print Range("b3").End(xlDown).Row
Debug.Print Range("b3").End(xlToLeft).Column
Debug.Print Range("b3").End(xlToRight).Column
Debug.Print

end sub

2.2 测试比较

查固定range()的范围
查固定range()，但range()内全部为空
查不确定的区域的范围

Sub test_end1()

Debug.Print Range("b:b").Rows.Count
'Debug.Print Range("b:b").maxrowCount
Debug.Print Range("3:3").Columns.Count
Debug.Print


'确定的区域，这样查也是有意义的
'返回一个 Range 对象，它表示包含源范围的区域末尾的单元格
Debug.Print Range("b1:b5").End(xlUp).Row
Debug.Print Range("b1:b5").End(xlDown).Row
Debug.Print Range("b1:b5").End(xlToLeft).Column
Debug.Print Range("b1:b5").End(xlToRight).Column
Debug.Print

'空区域
Debug.Print Range("d1:d5").End(xlUp).Row
Debug.Print Range("d1:d5").End(xlDown).Row
Debug.Print Range("d1:d5").End(xlToLeft).Column
Debug.Print Range("d1:d5").End(xlToRight).Column
Debug.Print

'查不确定的区域
Debug.Print Range("b:b").End(xlUp).Row
Debug.Print Range("b:b").End(xlDown).Row
Debug.Print Range("b:b").End(xlToLeft).Column
Debug.Print Range("b:b").End(xlToRight).Column
Debug.Print


'查不确定的区域，用处比较大
'比如查B列的上下限界。因为中间可能有空格隔断，所以得这么查
Debug.Print "查B列的上下限界,从列的开始往下查，从列的末尾往上查"
Debug.Print Range("b1").End(xlDown).Row
Debug.Print Range("b65536").End(xlUp).Row

'比如查3行的左右限界。因为中间可能有空格隔断，所以得这么查
Debug.Print "查第3行的左右限界，从行的开始往右查，从行的结尾（尽量大的数）往左边查"
Debug.Print Range("a3").End(xlToRight).Column
Debug.Print Cells(3, 9999).End(xlToLeft).Column

End Sub

2.3 查不确定区域的范围的正确用法（不是从内部查边界，而是从4个外界去逼近边界）

'查不确定的区域，用处比较大
'比如查B列的上下限界。因为中间可能有空格隔断，所以得这么查
Debug.Print "查B列的上下限界,从列的开始往下查，从列的末尾往上查"
Debug.Print Range("b1").End(xlDown).Row
Debug.Print Range("b65536").End(xlUp).Row

'比如查3行的左右限界。因为中间可能有空格隔断，所以得这么查
Debug.Print "查第3行的左右限界，从行的开始往右查，从行的结尾（尽量大的数）往左边查"
Debug.Print Range("a3").End(xlToRight).Column
Debug.Print Cells(3, 9999).End(xlToLeft).Column