Excel特殊单元格定位方法

声明：本系列文章是学习蓝色幻想视频和《别怕，Excel VBA其实很简单》的笔记总结，知识版权归上述两作品所以，图片均来自蓝色幻想视频。

第十二节 特殊单元格定位

可能有很多人看到这个标题就会想起按F5定位单元格，今天将的课程就是这个方法的VBA实现。有心的朋友可以录制宏看一下代码。

1、已使用的单元格区域

Sheets(''sheet2'').UsedRange.Select

UsedRange会选中所有已经被编辑过的单元格，不论你是否又进行了数据删除。其实就是找出已使用区域上下左右的边界单元格，组成一个矩形。这个东西就非常有用了，因为我们通常不知道具体行数和列数，总不能每次都拿整张表格进行操作吧，太浪费时间和系统资源。

插一句，还有一个不需要知道具体行数和列数的操作，复制操作Copy，只需要指定顶点单元格就行。

Sheets(1).Range(''a1:a10'').Copy Range(''i1'')

其实这是Copy方法的简写，真正的地址形式应该是destination:=Worksheets(''Sheet2'').Range(''i1'')，后面还会讲到。

2、某单元格所在的单元格区域

Range(''b8'').CurrentRegion.Select

Current和Region两个单词组成的，非常便于理解。如果一张表格里零零散散记录写东西，能不能算作同一个区域不是随便的，它们的行号或列号至少有一个是连续的，如果都不连续就会被认为不是同一个区域。比如只有A1和B2使用过了，它们是同一个区域；但是换成A1和C2，则不是同一个区域。

3、两个单元格区域共同的区域——并集

Application.Intersect(Columns(''b:c''), Rows(''3:5'')).Select

Intersect是相交、交叉的意思，用法很简单，找出两个区域的并集。Application对象是Excel对象模型中最高层级的对象，代表Excel应用程序自身。这里的Application是可以省略的。

4、调用定位条件选取特殊单元格

Range(''A1:A6'').SpecialCells(xlCellTypeBlanks).Select

这就是定位空单元格的语句，平时我们可以录制宏来查看代码。

5、端点单元格

Range(''A65536'').End(xlUp).Offset(1, 0) = 1000

这句是找到A列最下面一行，在其下面的单元格赋值100。

Range(''A65535'').End(xlUp).Row

Range(''IV1'').End(xlToLeft).Column

上面这两句分别是我们常用的找最大行号和最大列号的语句，end方法非常方便，不需要我们用循环去挨着判断每个单元格是否为空。xlUp时向上查找，从第65535行往上找到已经使用过的单元格，从而得到编辑区域的下边界；xlDown就是向下查找。xlToLeft是向左查找，从第IV列往左找到已经使用过的单元格，从而得到编辑区域的右边界；xlToRight则是向右查找。

6、Ctrl ↑↓←→箭头的说明

如何快速定位到已使用区域的边界，很多人都知道用Ctrl 方向箭头。这里具体分为两种情况：

①如果当前选中单元格在已经使用区域内部，则Ctrl ↑能定位到表格的上边界；Ctrl ↓能定位到下边界，依次类推。但是要注意，如果出现了空白单元格是会被干扰的，大家可以试一试。

②如果如果当前选中单元格在已经使用区域外部，且当在表格下方时，Ctrl ↑能定位到表格的上边界；Ctrl ↓能定位到下边界，依次类推。如果在表格的上方使用Ctrl ↑会定位到第1行；在表格的下方使用Ctrl ↓则会定位到第65536行；在表格的左方使用Ctrl ←会定位到第A列；在表格的右方使用Ctrl →会定位到第IV列。