end属性 php,VBA系列-end属性

简介

Range.End属性

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

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

语法表达式.End(Direction)

表达式.End(Direction)

方向写法值

向上

xlUp-4162

向下

xlDown-4121

向左

xlToLeft-4159

向右

xlToRight-416

"

练习

1

Sub

end练习()

2

Range(

"B2").

End(xlToRight).Select

"选中B2最右边的单元格

3Range("B2").

End(xlToLeft).Select

"选中B2最左边的单元格

4

Range(

"B2").

End(xlUp).Select

"选中B2最前的单元格

5Range("B2").

End(xlDown).Select

"选中B2最后的单元格

6

EndSub

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

1

Sub

end练习1()

2

ActiveSheet

.Range("

A1")

.End(

xlDown)

.Offset(1,0)

.Select

3

End

Sub

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

1

Sub

end练习

2()

2

Range(

"A1",

Range(

"a1").End(xlDown).End(xlToRight)).Select

3

EndSub

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

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

1

Sub

sortbycolorindex()

2DimrAsLong

3r=

Range("A2000").

End(xlUp).Row

4Fori=3Tor

5

Cells(

i,

10).

Value=

Cells(i,

9).

Interior.ColorIndex

6Next

7

Range("A1"

).

CurrentRegion.Sortkey1:=Range("J3"),

header:=xlYes

8EndSub

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

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