A

Question

我对Excel和VBA很陌生，但我想做一个函数来提供这样的结果。

    A    B
  -----------
1 | A  |  1 |
2 | B  |  2 |        =TotalItems("A", A1:A4, B1:B4)
3 | C  |  3 |        =5
4 | A  |  4 |
  -----------

它在一个数组中搜索所有出现的情况，然后在另一个数组中求出相应的值。我不确定是否已经有这样的函数，但我试着创建了一个。 下面是代码。

Function TotalItems(itemToFind, itemsToReference, resultArr)


    Dim i As Integer
    Dim total As Double
    Dim r As Integer


    For i = 1 To UBound(itemsToReference)

       If StrComp(itemToFind, itemsToReference(i)) = 0 Then
            total = total + CDbl(resultArr(i))
        End If

    Next i


    TotalItems = total


End Function

它返回 #VALUE! 每当我运行它时。我不知道问题出在哪里，希望得到大家的帮助。