用VBA插入合计

879851984

请老师们帮下忙，鲜花感谢。

WANT-T

加工好明细，然后透视一下就有了，图上的合计就是小计

879851984

WANT-T 发表于 2024-11-15 11:06
加工好明细，然后透视一下就有了，图上的合计就是小计

谢谢，这个不适合应用场景。

zpy2

create temp table aa as
select 'a'||udf_fillna_m(商店名称,'a') ord,fillna(商店名称) 店名,colIndex[1:] from 操作表 limit 20;
//select * from aa;
create temp table bb as
select ord||'a' ord,店名,'合计' 商品代码,'' 颜色名称,'' 库位               
,colIdxf[5:]{sum(`%s`) `%s`} from aa group by 店名;
create temp table cc as
select 'b' ord,'总计' 店名,'' 商品代码,'' 颜色名称,'' 库位               
,colIdxf[5:]{sum(`%s`) `%s`} from aa;
//select * from bb;
//drop table cc;
create temp table dd as
select * from aa union all
select * from bb union all
select * from cc
order by ord;
create temp table ee as
select colIndex[1:] from dd;
cli_merge_row~ee~1;

ykcbf1100

插入小计，插入合计

ykcbf1100

插入小计，插入合计

1. Sub ykcbf()   '//2024.11.15
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     On Error Resume Next
   
5.     With Sheets("操作表")
   
6.         r1 = .UsedRange.Find("小计").Row
   
7.         If r1 Then
   
8.             MsgBox "已有小计，不必再插入小计行！": End
   
9.         Else
   
10.             r = .Cells(Rows.Count, 2).End(3).Row
    
11.             .[a1].Resize(r, 14).UnMerge
    
12.             arr = .[a1].Resize(r, 14)
    
13.             m = r + 1
    
14.             For i = 2 To UBound(arr)
    
15.                 If arr(i, 1) = Empty Then arr(i, 1) = arr(i - 1, 1)
    
16.             Next
    
17.             .[a1].Resize(r, 14) = arr
    
18.             For i = r To 2 Step -1
    
19.                 If .Cells(i, 1) <> .Cells(i - 1, 1) Then
    
20.                     .Rows(m).Insert
    
21.                     .Cells(m, 2) = "小计"
    
22.                     .Cells(m, 1) = .Cells(i, 1)
    
23.                     .Cells(m, 5).Resize(1, 10).Formula = "=SUM(e$" & i & ":e$" & m - 1 & ")"
    
24.                     .Cells(i, 1).Resize(m - i + 1).Merge
    
25.                     m = i
    
26.                 End If
    
27.             Next
    
28.             r = .Cells(Rows.Count, 2).End(xlUp).Row
    
29.             .Cells(r + 1, 2) = "合计"
    
30.             .Cells(r + 1, 5).Resize(1, 10).Formula = "=SUMIFS(e$" & 2 & ":e$" & r & ",$b" & 2 & ":$b$" & r & ",""小计"")"
    
31.             .Cells(1, 1).Resize(r + 1, 14).Borders.LineStyle = 1
    
32.         End If
    
33.     End With
    
34.     Application.ScreenUpdating = False
    
35.     MsgBox "OK！"
    
36. End Sub

复制代码

879851984

ykcbf1100 发表于 2024-11-15 12:49
插入小计，插入合计

感谢草爷，完美解决。

usedrange

。。。。。。。。。。。