SpecialCells(xlCellTypeConstants, 23)里23的含义

liu6liu

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
  

该贴已经同步到 liu6liu的微博

function2046

谢谢，学习了！！！！{:soso_e100:}

fzkoko

学习，多谢

lcjy11185

收藏，学习了。作个记号.
specialcells的参数表

小勤oO

才碰到的问题，后面VALUE的参数值居然是相加得出来的

7176386

1. SpecialCells查找指定类型及值的单元格并返回单元格引用。
   
2. 
   
3. 它有两个参数，帮助中说，一个是类型，一个是值：
   
4. 
   
5. expression.SpecialCells(Type, Value)
   
6. 
   
7. Type
   
8. 
   
9. 这里说类型，是指单元格中数据的表现形式。是常数，还是公式，或者是空单元格，或者是最后的单元格等等。它规定，可以查找下列10种类型中的任意一种，不同的类型用不同的参数，具体见帮助。
   
10. 
    
11. 例如，在sheet1中查常数(省略第二个参数)：
    
12. 
    
13. sheet1.cells.SpecialCells(xlCellTypeConstants)，或者：
    
14. 
    
15. sheet1.cells.SpecialCells(2)
    
16. 
    
17. 又如，在sheet2的A:D列查找包含公式的单元格：
    
18. 
    
19. sheet2.range("a:d").SpecialCells(xlCellTypeFormulas)
    
20. 
    
21. Value
    
22. 
    
23. 如果查找常数或公式，可以使用第二个参数 Value。
    
24. 
    
25. 可以指定单元格的值是“错误值、逻辑值、文本、数值”中的哪一种或几种，分别用数值16、4、2、1代表前面4种类型，指定的类型有多种时，值可以相加，如文本和数值：2+1=3：
    
26. 
    
27. sheet2.range("a:d").SpecialCells(xlCellTypeFormulas,3)
    
28. 
    
29. 在指定区域中查找包含公式的单元格，而且，单元格计算结果为数值或文本。
    
30. 
    
31. 第二个参数，如果不指定，默认为23，即全部。
    
32. 
    
33. 第一个参数，如果是10个参数中的另外8个，则不使用第二个参数。
    
34. 
    
35. 
    
36. 
    
37. 
    
38. 
    
39. 
    
40. 
    
41.         Dim rng As Range
    
42. 
    
43.         Dim i As Long
    
44. 
    
45. 
    
46.         Dim theArea As Range
    
47. 
    
48. 
    
49. 
    
50. '        Set rng = .Cells
    
51.     .UsedRange.AutoFilter Field:=8, Criteria1:="#N/A"
    
52.     .UsedRange.SpecialCells(xlCellTypeVisible).Copy (tempsheet1.Cells(1, 1))
    
53. '        rng.AutoFilter Field:=8, Criteria1:="#N/A"
    
54. '
    
55. '        rng.SpecialCells(xlCellTypeVisible).Copy (tempsheet1.Cells(1, 1))
    
56.         Set rng = .UsedRange.SpecialCells(xlCellTypeVisible)
    
57. 
    
58.         i = 0
    
59.         Set theArea = .Cells
    
60.         For Each theArea In rng.Areas
    
61. 
    
62.         i = i + 1
    
63.         'MsgBox theArea.row
    
64. 
    
65.          'here the msgbox return the row of cells which selected
    
66. 
    
67.         Next
    

复制代码

任飘渺

收藏，学习了。

P1ano

留个记号，回头再来看。

feng520

如果同一个范围想同时满足定位数字和空值,该怎么组合vba?

定位数字:Selection.SpecialCells(xlCellTypeConstants, 1).Select
定位空值:Selection.SpecialCells(xlCellTypeBlanks).Select

aoranbuqun

受教了！做个记号！谢谢！