VBA系列-end属性

简介

Range.End 属性

返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。

等同于按键 (End 向上键、End 向下键、End 向左键、End 向右键)，或者CTRL 上下左右

语法表达式.End (Direction)

表达式.End (Direction)

方向 写法 值

向上 xlUp - 4162

向下 xlDown - 4121

向左 xlToLeft - 4159

向右 xlToRight - 416

'

 

练习

1Sub end练习()
2Range('B2').End(xlToRight).Select ' 选中B2最右边的单元格
3Range('B2').End(xlToLeft).Select ' 选中B2最左边的单元格
4Range('B2').End(xlUp).Select     '选中B2最前的单元格
5Range('B2').End(xlDown).Select    '选中B2最后的单元格
6End Sub

上面的代码选择不同的区域

1Sub end练习1()
2ActiveSheet.Range('A1').End(xlDown).Offset(1, 0).Select
3End Sub

上面的代码移动到单元格区域下面空白的单元格区域

1Sub end练习2()
2Range('A1', Range('a1').End(xlDown).End(xlToRight)).Select
3End Sub


上面的代码选中一个以空行与空列组合为边界的区域，也可以用CurrentRegion

案例

如上图所示，Excel没有提供按颜色排序功能，用下面的代码可以按照颜色排序。

1Sub sortbycolorindex()
2Dim r As Long
3r = Range('A2000').End(xlUp).Row
4For i = 3 To r
5    Cells(i, 10).Value = Cells(i, 9).Interior.ColorIndex
6    Next
7    Range('A1').CurrentRegion.Sort key1:=Range('J3'), header:=xlYes
8End Sub


今天的VBA就分享到这里，希望有大家喜欢的语句。

上期有同学反映太难了，你可以选择简单的练习或者先模仿，只要坚持就会有收获！