这篇文章给大家讲一下VBA中，Range对象的一个特别重要的属性--END属性。

相信刚开始学VBA的朋友在代码中经常会遇到end(xlup)'s码，而且是特别高频的。

例如，下面的代码示例汇总了工作簿。Sub将一列中的不同项拆分到不同的工作簿中。显示警报=虚假申请。screen updating=false set=createobject('脚本。dictionary ')A=1 '//Title line b=1 '//Column arr=range(单元格(a 1，b)，单元格(行。计数，b)。end(xlup))for x=1 to bound(arr)d(arr(x，1))=xNextbrr=d . keys for I=0 bound(brr)工作簿。add . saveasthisworkbook . path ' \ ' brr(I)with thisworkbook。床单(1)。Rows(a).AutoFilterField:=b，criteria 1:=brr(I). auto filter . range . special cells(12)。复印纸张(1)。范围(“A1”)end with active workbook。close 1 next this workbook . Sheets(1)。“ShowAllData”筛选器应用程序。displayalerts=trueapplicationscreenupdating=truemsgbox '拆分完成，时间为：' Format(Timer-Tm，' 0.00秒')，64，'拆分报告' EndSub '这段代码的意思是根据一列拆分工作簿，拆分成单独的工作簿。有需要的朋友也可以直接使用。

环顾四周，我看到了这个英俊的end(xlup)，他到底是做什么的？怎么好多代码里都有他在搞事情？！.

Range.End属性：返回一个Range对象，该对象代表源区域中区域末尾的单元格。

官方来说，这听起来有点尴尬。说白了，把光标放在一个单元格里，给他一个end(xlup)，相当于同时按下CTRL+。

如果不知道CTRL 同时按下是什么效果，可以参考下面的动画。

当光标最初放置在单元格A1中并同时按下Ctrl 时，光标会移动到A列中使用的最后一个单元格.

一般我们是这样用的：单元格表达式.End(Direction)，而的方向参数就是方向参数，我们可以选择下面四个时钟中的一个。

利用这个特性，我们就可以寻找A列已使用的最大行号：

单元格(行。计数，1)。结束(xlUp)。排

您一定会突然意识到，原始代码开头的Cells(Rows.Count,b).End(xlUp)是B列中所用单元格的最大行数.

持续关注，更多Excel和VBA干货正在更新中！