请教下小计行怎样用VBA实现对齐

bkexe23

请教下，VBA怎样能将各产品的小计行分别对齐，以实现自动调整小计行。调整为调整后的格式表，谢谢。

清风竹-

1. Sub 对齐小计()
   
2. Application.ScreenUpdating = False
   
3. m1 = [a65536].End(3).Row
   
4. m2 = [g65536].End(3).Row
   
5. m = m1 + m2
   
6. For i = 1 To m
   
7.   If Cells(i, "a") = "" And Cells(i, "g") = "" And Cells(i +1, "a") = "" Then
   
8.      Exit For
   
9.   End If
   
10.   If Cells(i, "a") <> "小计" And Cells(i, "g") = "小计" Then
    
11.      Range("G" & i & ":K" & i).Insert Shift:=xlDown
    
12.   End If
    
13.   If Cells(i, "a") = "小计" And Cells(i, "g") <> "小计" Then
    
14.      Range("A" & i & ":E" & i).Insert Shift:=xlDown
    
15.   End If
    
16. Next
    
17. Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

清风竹-

请看附件。

bkexe23

老师果然是厉害，用这么简短的语句就解决了我的问题{:soso_e179:}

Ronaldo09

赞，我用find做  好复杂