Range.End 属性
返回一个 Range 对象,该对象代表包含源区域的区域尾端的单元格。
等同于按键 (End 向上键、End 向下键、End 向左键、End 向右键),或者CTRL 上下左右
语法表达式.End (Direction)
表达式.End (Direction)
'
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就分享到这里,希望有大家喜欢的语句。
上期有同学反映太难了,你可以选择简单的练习或者先模仿,只要坚持就会有收获!
联系客服