如何用VBA提取多个数据去重

5550381

求教，如何把两个年份的数据进行月份筛选提取用VBA实现呢

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.27
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     fn = [{"今年","前年"}]
   
5.     yf = Sheets("月份数据查询").[c2].Value
   
6.     Sheets("月份数据查询").[b5:h10000] = ""
   
7.     For x = 1 To UBound(fn)
   
8.         With Sheets(fn(x))
   
9.             r = .Cells(Rows.Count, 1).End(3).Row
   
10.             arr = .[a1].Resize(r, 9)
    
11.         End With
    
12.         d.RemoveAll
    
13.         m = 0
    
14.         ReDim brr(1 To 10000, 1 To 3)
    
15.         For i = 3 To UBound(arr)
    
16.             If Month(arr(i, 2)) = Val(yf) Then
    
17.                 s = arr(i, 1)
    
18.                 If Not d.exists(s) Then
    
19.                     m = m + 1
    
20.                     d(s) = m
    
21.                     brr(m, 1) = arr(i, 1)
    
22.                 Else
    
23.                     r = d(s)
    
24.                     brr(r, 2) = brr(r, 2) + 1
    
25.                     brr(r, 3) = brr(r, 3) + arr(i, 8)
    
26.                 End If
    
27.             End If
    
28.         Next
    
29.         Sheets("月份数据查询").Cells(5, 4 * x - 2).Resize(m, 3) = brr
    
30.     Next
    
31.     Set d = Nothing
    
32.     Application.ScreenUpdating = True
    
33.     MsgBox "OK！"
    
34. End Sub
    

复制代码

蓝桥玄霜

提取的例子：

LIUZHU

简单尝试了下

LIUZHU

JSA代码

1. function 数据提取(){
   
2.         Sheets.Item("月份数据查询").Activate();
   
3.         const month=Range("c2").Value2.match(/\d+/)[0].padStart(2,0);
   
4.         const wf=WorksheetFunction;
   
5.         [["今年","b5"],["前年","f5"]].forEach(([sh,rg])=>{
   
6.                 let dic={}, arr=Sheets.Item(sh).Range("a1").CurrentRegion.Value2.slice(2)
   
7.                 let obj=arr.reduce((obj,x)=>{
   
8.                         let mth=WorksheetFunction.Text(x[1],"mm");
   
9.                         if (mth!=month) return obj;
   
10.                         let temp=obj[x[0]]=obj[x[0]] || [x[0],0,0];
    
11.                         let key=temp[0] + mth;
    
12.                         dic[key]=(dic[key] || 0) + 1;
    
13.                         temp[1]=dic[key], temp[2]+=x[7] || 0;                //下单次数，金额
    
14.                         return obj
    
15.                 },{});
    
16.                 let res=Object.values(obj);
    
17.                 Range(rg).Resize(res.length,res[0].length).Value2=res;
    
18.         });
    
19. }

复制代码

5550381

ykcbf1100 发表于 2024-5-27 09:19
参与一下。。。

以单元格中月份的为提取基础的话，提取出来的数据还会有空值。其他月份的日期会出现数据集合到一起没办法分两组，这个要怎么解决呢

LIUZHU

附件，请用WSP审核

LIUZHU

就差没设置线条了，其他的应该都达到要求了

5550381

LIUZHU 发表于 2024-5-27 10:14
就差没设置线条了，其他的应该都达到要求了

如果旁边在做一列对比当月未出现客户要怎么写呢，能分今年和去年当月分别没出现的客户名称