VBA自定义函数中SpecialCells的应用问题

Question

vbafunction

Answer 1

ElseIf TypeName(x) = "Integer" Then
懒人！调试一下就知道了。
我用公式 =SumInteriorColor(A1:A13,6)，TypeName(x) 为 Double。

Answer 2

你选用整列试试公式的速度
我是想知道 
Set Rng1 = Rng.SpecialCells(xlCellTypeConstants)
    Set Rng2 = Rng.SpecialCells(xlCellTypeFormulas)
    Set Rng = Union(Rng1, Rng2)
这里为什么不能把单元格的范围缩小
    

Answer 3

文档中没有说空白就不算常量、公式单元，只能在循环中过滤。
好像测试下来你上面的三条语句是白做功，用 IsNumeric(Temp.Value)过滤吧。

Answer 4

谢谢，找到了方法了    Set Rng = Intersect(Rng.Parent.UsedRange, Rng)