请大师帮忙看看这个按部门如果小计，用循环做

chenqj2005

原始表中的数据，按部门编号分组，每个部门下面插入一行，小计，我用循环做，但是遇到只有一行数据的时候是不能生成的，还有最后两行也不能生成请大师帮忙看看代码，问题出在哪里，还是用循环做，如果可以，用字典做，我也可以学习一下

1. Sub Test99()
   
2. 
   
3. 
   
4. Dim i As Integer, j As Integer, LastRow As Integer
   
5. Dim currVal As Variant
   
6.     With ActiveSheet
   
7.          
   
8.   LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
   
9.         
   
10.         i = 1
    
11.         
    
12.       While i <= LastRow
    
13.          
    
14.          currVal = .Cells(i, 2).Value
    
15.             
    
16.             j = 0
    
17.             
    
18.             Do
    
19.             
    
20.             j = j + 1
    
21.             
    
22.        Loop Until .Cells(i + j, 2).Value <> currVal
    
23.                
    
24.          
    
25.    
    
26.       
    
27.   
    
28. If j > 1 Then
    
29.      
    
30.          
    
31.            
    
32.              .Rows(i + j).Insert
    
33.             
    
34.             .Cells(i + j, 2).Value = currVal
    
35.             .Cells(i + j, 5).Value = "合计"
    
36.             
    
37.                .Cells(i + j, 6).FormulaR1C1 = "=SUM(R[" & 2 - j & "]C:R[1]C)" '求和公式
    
38.             
    
39.         End If
    
40.       
    
41.          
    
42.                   i = i + j
    
43.       
    
44.             
    
45. 
    
46.         
    
47.         'Next
    
48. Wend
    
49.       
    
50.         
    
51.         
    
52.     End With
    
53.    
    
54.    
    
55. End Sub
    

复制代码

ykcbf1100

上个附件吧，没有附件你发的代码等于白发。

gwjkkkkk

上传附件才可得到满意的结果。。。

fzxba

1. Sub test0()
   
2.   Dim ar, br(), i As Long, j As Long, k As Long, Qty As Double
   
3.   ar = Range("A1").CurrentRegion.Offset(1).Value
   
4.   ReDim br(1 To UBound(ar) * 2, 1 To UBound(ar, 2))
   
5.   For i = 1 To UBound(ar) - 1
   
6.     If Len(ar(i, 2)) Then
   
7.       Qty = Qty + Val(ar(i, 6))
   
8.       k = k + 1
   
9.       For j = 1 To UBound(ar, 2)
   
10.         br(k, j) = ar(i, j)
    
11.       Next
    
12.       If ar(i, 2) <> ar(i + 1, 2) Then
    
13.         k = k + 1
    
14.         br(k, 5) = "小计"
    
15.         br(k, 6) = Qty
    
16.         Qty = 0
    
17.       End If
    
18.     End If
    
19.   Next
    
20.   With Range("A2")
    
21.     .Offset(, 1).Resize(k, 3).NumberFormatLocal = "@"
    
22.     .Resize(k, UBound(br, 2)) = br
    
23.   End With
    
24. End Sub

复制代码