end属性 php,9、[VBA入门到放弃笔记] End属性

END属性常用来构建动态的单元格范围，获取有效的数据区域。

其写法是

单元格.end(方向)

要构建一个行数不断增加的动态单元格范围，如下面代码

Sub 动态单元格()

Dim 最后一行 As Long, 最后一行1 As Long

Dim rng As Range, rng1 As Range

最后一行 = Range("a1").End(xlDown).Row

最后一行1 = Range("a13").End(xlUp).Row

Set rng = Range("a1:c" & 最后一行)

Debug.Print "rng的单元格范围是" & rng.Address

Set rng1 = Range("a1:c" & 最后一行1)

Debug.Print "rng1的单元格范围是" & rng1.Address

End Sub

最后一行 = Range("a1").End(xlDown).Row

从A2(A1不算)开始在A列向下xlDown查找 ‘连续’ 不为空的单元格，

一旦遇到空单元格则停止，返回最后一个非空单元格(地址)。

最后一行1 = Range("a13").End(xlUp).Row

从A12(A13不算)开始在A列向上xlUp查找不为空的单元格，

过程中遇到不为空单元格则停止，返回不为空单元格的(地址)。

end(xldown)查找演示(遇空则停)

end(xlup)同理,换个方向而已(找到非空为止)。

假如A5单元格变为空单元格，则上面两个end返回不同的行号。

当行数增加后，再运行代码

注意红色方框中的Range("a65535")，通常使用end(xlup)时，会设置一个比大的单元格作为起始点。

-03版的的excel有65536行。

-07版以上的excel有1048576行。

-因此，如果Range("a1048576").end(xlup)这种写法在03版是报错的，因为03excel不支持那么大的行数。

解决方法是下面的这种写法

Cells(Rows.Count, 1).End(xlUp).Row

如果是03版excel，则rows.count是65536,07版以上1048576.

如指定单元格区域，则rows.count返回该单元格区域的行数。

END除了xlup，xldown，还有xltoleft(向左)，xltoright(向右)两个方向的查找，原理都一样，通常用来确定动态单元格范围的列数。

练习:动态的高级筛选：根据部门筛选

先录制高级筛选的宏，得出这样的代码。

Sub 宏2()

Application.CutCopyMode = False

Application.CutCopyMode = False

Sheets("Sheet4").Range("A1:C13").AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4"), Unique:=False

End Sub

将代码改为动态的单元格区域，将筛选结果放到另外的工作表。

1、用End属性构建动态的单元格区域。很少的改动就可以实现动态高级筛选。

Paste_Image.png

Sub 宏2()

Dim LastRow As Long

LastRow = Sheets("sheet4").Cells(Rows.Count, 1).End(xlUp).Row '动态获取数据行数

Sheets("Sheet4").Range("A1:C" & LastRow).AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Sheets("sheet1").Range("A1:A2"), CopyToRange:=Sheets("sheet1").Range("A4"), Unique:=False

End Sub

代码效果演示如下。稍稍修改，高级筛选就方便如意。