用VBA将同一订单号对应的金额汇总

四海倚天

用VBA将同一订单号的金额汇总，将计算的结果填写在第一行，请指教，在线等，谢谢！

shuidisyy

用函数，IF(F2<> "",SUMIFS(E:E,A:A,A2)-f2, "")

shuidisyy

1. Dim i As Integer, arr, dic As Object, x As Integer, brr, irow As Integer
   
2.     Set dic = CreateObject("Scripting.Dictionary")
   
3.     irow = Range("a" & Rows.Count).End(xlUp).Row
   
4.     arr = Range("a2:f" & irow).Value
   
5.     ReDim brr(1 To UBound(arr), 1 To 1)
   
6.     For i = 1 To UBound(arr)
   
7.         dic(arr(i, 1)) = arr(i, 5) + dic(arr(i, 1))
   
8.     Next i
   
9.     For x = 1 To UBound(arr)
   
10.         If arr(x, 6) <> "" Then
    
11.             brr(x, 1) = dic(arr(x, 1)) - arr(x, 6)
    
12.         End If
    
13.     Next x
    
14.     Range("g2").Resize(UBound(brr), 1) = brr

复制代码