小弟实在不才，上网找了一些跟evaluate相关的说明，还是不清楚""、join、&的用法...
继sumif后，我尝试要做countif，不过得到到ary(i)阵列值皆是0。
请问版上大大我要如何修改? 谢谢!!
Sub test()
Dim a, b
Dim d, i&
Dim ary(10)
a = Array("A", "B", "A", "B", "B", "C", "B", "C", "D", "B")
b = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
d = UBound(a)
For i = 0 To d
ary(i) = Evaluate("count({""" & Join(a, """,""") & """}=""" & a(i) _
& """)")
Next
End Sub