添了第一行和第二就不运行了，敬请老师再帮一下。谢谢！！

wtb8152

lsc900707

For i = 2 To UBound(ar)现在数据是从第四行开始，改成For i =4 To UBound(ar)就可以了。
说明你根本没去理解和消化代码！

jaxxcyh

1. Option Explicit
   
2. Sub TEST1()
   
3.     Dim ar, i&, dic As Object
   
4.    
   
5.     Set dic = CreateObject("Scripting.Dictionary")
   
6.     ar = Worksheets(1).[A1].CurrentRegion.Value
   
7.     For i = 4 To UBound(ar)
   
8.         dic(ar(i, 3)) = dic(ar(i, 3)) + ar(i, 5)
   
9.     Next i
   
10.    
    
11.     Range("f2:h2").ClearContents  '清除明细表总计栏数据
    
12.     With [A3].CurrentRegion
    
13.         ar = .Value
    
14.         For i = 4 To UBound(ar)   '此处循环应从第4行开始，而不是第2行
    
15.             ar(i, 7) = dic(ar(i, 3))
    
16.             ar(i, 8) = ar(i, 6) - ar(i, 7)
    
17.             
    
18.             '更新明细表总计栏数据
    
19.             ar(2, 6) = ar(2, 6) + ar(i, 6)
    
20.             ar(2, 7) = ar(2, 7) + ar(i, 7)
    
21.             ar(2, 8) = ar(2, 8) + ar(i, 8)
    
22.         Next i
    
23.         .Value = ar
    
24.     End With
    
25.     Beep
    
26. End Sub

复制代码

wtb8152

好的，我来试试，谢谢老师指点！！

wtb8152

谢谢jaxxcyh老师诚意相助！天下的好人真多！谢谢！！