VBA简单入门16：SpecialCells方法

下面对话框的操作大多数都可以用SpecialCells方法来实现。

---

1、返回最后非空单元格的行号列号

VBA获取最后非空单元格的行号列号的方法很多，碰巧SpecialCells方法也可以实现。

Set rng = Range("a1").SpecialCells(xlCellTypeLastCell)

r = rng.Row

c = rng.Column

将A17单元格清空，再运行代码，结果和UsedRange属性相似哇。

---

2、定位空单元格。

Columns(1).SpecialCells(xlCellTypeBlanks).Select

---

3、定位公式错误值

Range("b2:b7").SpecialCells(xlCellTypeFormulas, xlErrors).Select

简单一句即可以定位：

---

4、复制筛选后的数据。

代码如下：

---