下面对话框的操作大多数都可以用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、复制筛选后的数据。 代码如下:
|