VBA学习笔记之specialcells

'Range.SpecialCells 方法
'返回一个 Range 对象，该对象代表与指定类型和值匹配的所有单元格。
'语法
'表达式.SpecialCells(Type, Value)
'表达式 一个代表 Range 对象的变量。

1 Sub 批注汇总()
2 MsgBox Application.Sum(Selection.SpecialCells(-4144))'手动选择区域的所有注释过的区域进行求和
3 End Sub

附上Value值表

XlCellType constants	Value
xlCellTypeAllFormatConditions . Cells of any format	-4172
xlCellTypeAllValidation . Cells having validation criteri