Question

多条件VBA求和，求救。

如图所示，我的代码是，这里边因为有三个循环所以不太知道如何把求和的项加到数组里边，请大神帮忙解答。Sub 模拟表() CRR = Sheet1.Range("O1:Q13") Set d = CreateObject("SCRIPTING.DICTIONARY") For X = 1 To UBound(CRR) d(CRR(X, 1) & "丨" & CRR(X, 2)) = d(CRR(X, 1) & "丨" & CRR(X, 2)) + CRR(X, 3) Next X Dim err(1 To 100, 1 To 8) '想要把总金额装入ERR arr = Sheet1.Range("A2:D4") brr = Sheet1.Range("e2:k4") For a = 1 To UBound(arr, 1) For b = 1 To UBound(arr, 2) For c = 1 To UBound(brr, 2) If d.exists(arr(a, b) & "丨" & brr(a, c)) Then '下一句如何把金额相加装入ERR中 这句不知道怎么写。。 End If Next c Next b Next aEnd Sub





Answer 1

点击我的信息，但愿你能找到我的联系方式。