分类分组并插入小计

2008lhr

请各位老师帮忙：在原表上以黄色列分组，并在每组的后一行A列插入“公司名称+小计”，在蓝色列生成本组金额的合计数。谢谢！！

kdsea

看不明白，你做一个模拟效果 ，更新附件

shiruiqiang

====这样？好评送花====

fzxba

测试.zip (74.47 KB, 下载次数: 24)

2024-1-14 19:23 上传

点击文件名下载附件

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.14
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     With Sheets("Sheet1")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         Set Rng = .Range("a4:m" & r)
   
7.         Rng.Sort .[j4], 1
   
8.         arr = Rng.Value
   
9.         m = r + 1
   
10.         For i = r To 4 Step -1
    
11.             If .Cells(i, "j") <> .Cells(i - 1, "j") Then
    
12.                 .Rows(m).Insert
    
13.                 .Cells(m, 1) = .Cells(i, "j") & "小计"
    
14.                 .Cells(m, "i").FormulaR1C1 = "=SUM(R" & i & "C:R" & m - 1 & "C)"
    
15.                 m = i
    
16.             End If
    
17.         Next
    
18.     End With
    
19.     Application.ScreenUpdating = True
    
20. End Sub
    
21. 
    
22. Sub 删除小计()
    
23.     Application.ScreenUpdating = False
    
24.     Application.DisplayAlerts = False
    
25.     With Sheets("Sheet1")
    
26.         r = .Cells(Rows.Count, 1).End(3).Row
    
27.         For i = r To 4 Step -1
    
28.             If InStr(.Cells(i, 1), "小计") Then
    
29.                 .Rows(i).Delete
    
30.             End If
    
31.         Next
    
32.     End With
    
33.     Application.ScreenUpdating = True
    
34. End Sub
    
35. 
    

复制代码

ykcbf1100

附件供参考。。。

yynrzwh

分类分组并合计.rar (102.54 KB, 下载次数: 22)

2024-1-14 22:47 上传

点击文件名下载附件

andysky

分类汇总不行吗？点一下就完成了，不用写代码
分类汇总能生成汇总，也能生成评审公式名称，只是公司名称没在A列而已。
要放到A列去也简单，定位空值，等于J列，就完成了。

2008lhr

ykcbf1100 发表于 2024-1-14 19:35
附件供参考。。。

感谢老师，就是这个效果。

lizhipei78

ykcbf1100 发表于 2024-1-14 19:35
附件供参考。。。

学习了，弄了一个通用的
https://club.excelhome.net/threa ... tml?_dsign=8ddc6a8d