VBA分类插入小计总计

fan800326

老师请帮忙。

谢谢!

sdytsxd991122

直接用分类汇总

liulang0808

limonet

循环与判断

limonet

Sub limonet()
    Dim i%, j%
    For i = 3 To 999
        If Cells(i, "A") <> Cells(i - 1, "A") And Cells(i - 1, "A") <> "合计" And Cells(i - 1, "A") <> "客户名称" Then
            Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(i, "A") = "合计"
            Range(Cells(i, "D"), Cells(i, "I")).FormulaR1C1 = "=SUM(R[-" & j & "]C:R[-1]C)"
            j = 0
        ElseIf Cells(i, "A") = "" Then
            Cells(i, "A") = "总计"
            Range(Cells(i, "D"), Cells(i, "I")).FormulaR1C1 = "=SUMif(R[-" & i - 3 & "]C1:R[-1]C1,""合计"",R[-18]C:R[-1]C)"
            Exit Sub
        Else
            j = j + 1
        End If
    Next i
End Sub

shiruiqiang

字典搞一个练练手

chxw68

1. Sub test()
   
2.     Dim r%, i%, m%, s%
   
3.     Dim arr()
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         c = .Cells(2, .Columns.Count).End(xlToLeft).Column
   
7.         If Application.CountIf(.Range("a3:a" & r), "小计") <> 0 Then
   
8.             MsgBox "已经添加了小计！"
   
9.             Exit Sub
   
10.         End If
    
11.         m = r + 1
    
12.         n = 0
    
13.         For i = r To 3 Step -1
    
14.             If .Cells(i, 1) <> .Cells(i - 1, 1) Then
    
15.                 .Rows(m).Insert
    
16.                 .Cells(m, 1) = "小计"
    
17.                 .Cells(m, 4).Resize(1, c - 3).FormulaR1C1 = "=SUM(R" & i & "C:R" & m - 1 & "C)"
    
18.                 n = n + 1
    
19.                 ReDim Preserve arr(1 To n)
    
20.                 arr(n) = m
    
21.                 For j = 1 To UBound(arr) - 1
    
22.                     arr(j) = arr(j) + 1
    
23.                 Next
    
24.                 m = i
    
25.             End If
    
26.         Next
    
27.         ss = Empty
    
28.         For k = UBound(arr) To 1 Step -1
    
29.             ss = ss & "+" & "R" & arr(k) & "C"
    
30.         Next
    
31.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
32.         .Cells(r + 1, 1) = "总计"
    
33.         .Cells(r + 1, 4).Resize(1, c - 3).FormulaR1C1 = "=" & Mid(ss, 2)
    
34.     End With
    
35. End Sub
    

复制代码

chxw68

练习一下。

LIUZHU

这问题用代码做还挺麻烦的

LIUZHU

JSA，WSP测试