如何用字典法根据多列内容汇总？谢谢

月下当前

根据该数据，用VBA字典法来根据门店和对应种类来汇总各自门店（门店随机不固定）对应的销售数量以及收入，效果如汇总图那样，难点是如何将门店对应2个项目一起生成出来对应各自种类，如同数据透视表一样

chxw68

详见附件。

baofa2

练习仅参考.zip (20.89 KB, 下载次数: 15)

2024-4-10 18:55 上传

点击文件名下载附件

yanglinzi

不知是否符合你的要求

LIUZHU

门店如果要按照顺序展现，如ABCDE，应该先要对原始数据排序吧？

jjmysjg

门店和对应种类来汇总各自门店对应的销售数量以及收入

LIUZHU

JSA代码

1. function 汇总(){
   
2.         let arr=Sheets.Item("数据源").Range("a1").CurrentRegion.Value2.slice(1);
   
3.         arr.sort((a,b)=>a[0].localeCompare(b[0]));                //按照门店排序
   
4.         let [bt1,bt2]=[["种类"],[,]];
   
5.         let obj=arr.reduce((dic,[a,b,c,d])=>{
   
6.                 let temp=dic[b]=dic[b] || [b];
   
7.                 if (!bt1.includes(a)){
   
8.                         bt1.push(a,null);
   
9.                         bt2.push("销售数量","销售收入");
   
10.                 }
    
11.                 let n=bt1.indexOf(a);
    
12.                 temp[n]=(temp[n] || 0)+c,temp[n+1]=(temp[n+1] || 0)+d;
    
13.                 return dic;
    
14.         },{"0":bt1,"1":bt2});
    
15.         let res=Object.values(obj);
    
16.         Sheets.Item("汇总").Activate();
    
17.         Cells.Delete();
    
18.         Range("a1").Resize(res.length,res[0].length).Value2=res;
    
19.         for (let rng of Range("a1").Resize(1,res[0].length)){
    
20.                 if (rng.Value2!=null){
    
21.                         if (rng.Value2.includes("种类")) rng.Resize(2,1).Merge();
    
22.                         if (rng.Value2.includes("店")) rng.Resize(1,2).Merge();
    
23.                 }
    
24.         }
    
25.         Range("a1").CurrentRegion.Borders.LineStyle=xlContinuous;
    
26.         Range("a1").CurrentRegion.EntireColumn.AutoFit();
    
27. }

复制代码

LIUZHU

可以用WPS测试

wsx22

请教chxw68、baofa2老师，在横向自动加上收入、数量合计，同时数量、金额自动变为Arial Narrow格式，如何增加代码，谢谢！

ykcbf1100

汇总表全自动生成

更新一下，加个合计