拜请高手将明细表汇总到总表

fnjpn

拜请高手将明细表汇总到总表

cjc209

原始表真奇葩

cjc209

自找麻烦     一开始就用要的格式不香吗? 最好是一维表最方便后期处理        

cjc209

最好就是姓名 类别 金额 一目了然 又好后期加工

ykcbf1100

参与一下。。。

1. Sub ykcbf55()   '//2024.1.25
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Set d1 = CreateObject("Scripting.Dictionary")
   
6.     Set List = CreateObject("System.Collections.ArrayList")
   
7.     arr = Sheets("明细").UsedRange
   
8.     For j = 1 To UBound(arr, 2) Step 2
   
9.         k = arr(1, j)
   
10.         List.Add k
    
11.         For i = 2 To UBound(arr)
    
12.             If arr(i, j) <> Empty Then
    
13.                 s = arr(i, j)
    
14.                 d1(s) = ""
    
15.                 s = arr(i, j) & "|" & arr(1, j)
    
16.                 d(s) = arr(i, j + 1)
    
17.             End If
    
18.         Next
    
19.     Next
    
20.     With Sheets("汇总")
    
21.         .[c1].Resize(, 20) = ""
    
22.         .UsedRange.Offset(1, 1).Clear
    
23.         .[c1].Resize(, List.Count) = List.toArray
    
24.         .[b2].Resize(d1.Count, 1) = WorksheetFunction.Transpose(d1.keys)
    
25.         arr = .[b1].Resize(d1.Count + 1, List.Count + 1)
    
26.         For i = 2 To UBound(arr)
    
27.             For j = 2 To UBound(arr, 2)
    
28.                 s = arr(i, 1) & "|" & arr(1, j)
    
29.                 If d.Exists(s) Then
    
30.                     arr(i, j) = d(s)
    
31.                 End If
    
32.             Next
    
33.         Next
    
34.         .[b1].Resize(d1.Count + 1, List.Count + 1) = arr
    
35.         .[b1].Resize(d1.Count + 1, List.Count + 1).Borders.LineStyle = 1
    
36.     End With
    
37.     Set d = Nothing
    
38.     Application.ScreenUpdating = True
    
39.     MsgBox "OK！"
    
40. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

fnjpn

ykcbf1100 发表于 2024-1-25 18:57
附件供参考。。。

谢谢大佬解决了问题()

680926

=IFERROR(VLOOKUP($B8,OFFSET(明细!$A$1,0,MATCH(D$1,明细!$1:$1,0)-1,50,2),2,0),"")

cjc209

function test(){
        var arr=$.maxArray("明细!a1:h1");
        var rs=[];
        for(var i=1;i<arr.length;i++){
                for(var j=0;j<arr[0].length;j+=2){
                        if(! isEmpty_Z(arr[i][j]) ){
                                var 姓名=arr[i][j]
                                var 类别=arr[0][j]
                                var 金额=arr[i][j+1]
                        rs=rs.concat([[姓名,类别,金额]])
                        }
                }
        };
        rs=$$.superPivot(rs,"f1",["f2","类别"],"sum('f3')",0);
        rs=$$.deleteRows(rs,1);
        var 表头=rs.take_Z(1)
        rs=rs.skip_Z(1).sort((a,b)=>a[0].replace(/\D+/g,"")-b[0].replace(/\D+/g,""))
        表头.concat(rs).toRange("汇总!h1")
}

yynrzwh

将明细表对应总表.7z (18.73 KB, 下载次数: 14)

2024-1-25 21:48 上传

点击文件名下载附件