【整理】VBA学习笔记（9） Range.SpecialCells() 的 xlcelltype类型

1 Range.SpecialCells() 

1.1 常用用法

• 可以非常快速的定位目标单元格
• 局限性：通用性很强
• 常用的
• 定位空单元格   range().specialcells(xlcelltypeblank)
• 定位最后1个单元格  range().specialcells(xlcelltypelastcell)
• 实测这个是定位的整个sheet的所有usedrange 的右下角单元格

 

• 另外一个好用的，定位出错单元格
• Range("a1:c20").SpecialCells(xlCellTypeFormulas, 16)

 

1.2 代码

Sub test202()

Range("a1:c20").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 7
Range("a1:c20").SpecialCells(xlCellTypeLastCell).Interior.ColorIndex = 3

Range("a1:c20").SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 6


End Sub

这是运行结果

 

2 具体Range.SpecialCells 知识（网上可以找到很多）

Range.SpecialCells 方法可以返回一个 Range 对象，该对象代表与指定类型和值匹配的所有单元格。

• 其语法如下：
• 表达式.SpecialCells(Type,Value)
• 其Type参数的可选XlCellType常量及对应值如下表：

 

XlCellType 常量	值	说明
xlCellTypeAllFormatConditions	-4172	任意格式单元格
xlCellTypeAllValidation	-4174	含有验证条件的单元格
xlCellTypeBlanks	4	空单元格
xlCellTypeComments	-4144	含有注释的单元格
xlCellTypeConstants	2	含有常量的单元格
xlCellTypeFormulas	-4123	含有公式的单元格
xlCellTypeLastCell	11	已用区域中的最后一个单元格
xlCellTypeSameFormatConditions	-4173	含有相同格式的单元格
xlCellTypeSameValidation	-4175	含有相同验证条件的单元格
xlCellTypeVisible	12	所有可见单元格

当Type参数为 xlCellTypeConstants 或 xlCellTypeFormulas时，Value参数有4种XlSpecialCellsValue 常量可选，见下表：

XlSpecialCellsValue 常量	值	说明
xlErrors	16	错误值
xlLogical	4	逻辑值
xlNumbers	1	数字
xlTextValues	2	文本

如下SpecialCells(xlCellTypeConstants,23)语句中的23=16+4+1+2，即表示定位的常量包含4种类型的单元格：错误值+逻辑值+数字+文本

• Sub 定位常量()
• Range("a:a").SpecialCells(xlCellTypeConstants, 23).Select
• End Sub

如只要定位常量错误值及逻辑值（即16+4=20），则采用如下代码：

• Sub test1()
• Range("a:a").SpecialCells(xlCellTypeConstants, 20).Select