軟體:EXCEL VBA
版本:2010
請教各位大大,下面程式中我想要計算不同的sumif值並存入ary(i)陣列中,
但出現"錯誤424,此處需要物件"的訊息,請問我是哪裡需要修正呢? 謝謝。
Sub test()
Dim a, b
Dim d
Dim ary(50)
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) =Application.WorksheetFunction.SumIf(a,a(i),b)
Next
End Sub