如何用VBA提取数据进行对比

小北来了

用VBA提取出需要的每月销售数据，然后进行两个月的销售对比，看流失的客户是那几个这个要怎么做

grf1973

https://club.excelhome.net/thread-1693545-1-1.html
同一个人？

LIUZHU

感觉最近这个类似的问题，总是反复碰到

LIUZHU

JS板块，自然是JSA代码

1. function 客户统计(){
   
2.         const arr=Sheets.Item("今年").Range("a1").CurrentRegion.Value2;
   
3.         const [sy,by]=["c2","g2"].map(x=>Sheets.Item("数据提取").Range(x).Value2)
   
4.         const wf=WorksheetFunction, dic={};
   
5.         Sheets.Item("数据提取").Activate();
   
6.         [[sy,"b5"],[by,"f5"]].forEach(([a,b])=>{
   
7.                 let obj=arr.slice(2).reduce((obj,x)=>{
   
8.                         let month=wf.Text(x[1],"m月份");
   
9.                         if (month!=a) return obj;
   
10.                         let temp=obj[x[0]]=obj[x[0]] || [x[0],0,0];
    
11.                         temp[1]++, temp[2]+=(x[7] || 0);
    
12.                         dic[x[0]]=[x[0],month];
    
13.                         return obj;
    
14.                 },{});
    
15.                 let res=Object.values(obj);
    
16.                 Range(b).Resize(res.length, res[0].length).Value2=res;
    
17.         });
    
18.         const kh=Object.values(dic).filter(x=>x[1]==sy);                //提取流失客户
    
19.         Range("j5").Resize(kh.length,kh[0].length-1).Value2=kh;
    
20. }

复制代码

LIUZHU

结果对不对请审核