怎样按月找出新客户？

tte3

怎样从开票数据中，找出每月的新客户?

wengjl

只要是每月一张表，那不就是一个很简单的比对问题嘛

这与你的架构设计有关。如果你一直是一张表，那就只能增加时，手工取出来了

tte3

wengjl 发表于 2022-12-14 12:31
只要是每月一张表，那不就是一个很简单的比对问题嘛

这与你的架构设计有关。如果你一直是一张表，那就只 ...

每月开票数据量大，手工取不方便
就一张表

small_small

1. Sub test()
   
2.     Dim d, dstr, k, i, n, arr, brr(), str
   
3.     arr = Sheet1.Range("a1").CurrentRegion
   
4.     ReDim brr(1 To 1000, 1 To 3)
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For k = 2 To UBound(arr)
   
7.         dstr = VBA.Year(arr(k, 4))
   
8.         If dstr < 2022 Then
   
9.             d(arr(k, 13)) = ""
   
10.         Else
    
11.             If Not d.exists(arr(k, 13)) Then
    
12.                 str = VBA.Month(arr(k, 4))
    
13.                 d(arr(k, 13)) = ""
    
14.                 n = n + 1
    
15.                 brr(n, 1) = str & "月新客户"
    
16.                 brr(n, 2) = arr(k, 12)
    
17.                 brr(n, 3) = arr(k, 13)
    
18.             End If
    
19.         End If
    
20.     Next k
    
21.     Sheet2.Range("a2").Resize(n, 3) = brr
    
22. End Sub
    

复制代码

tte3

small_small 发表于 2022-12-14 13:38

很好！非常感谢

ykcbf1100

small_small 发表于 2022-12-14 13:38

当月合计金额大于1000才算新客户，你这个代码还有点问题的。

zxsea_7426

wengjl 发表于 2022-12-14 12:31
只要是每月一张表，那不就是一个很简单的比对问题嘛

这与你的架构设计有关。如果你一直是一张表，那就只 ...

放在一张表中也一样可以取

tte3

small_small 发表于 2022-12-14 13:38

是的，筛选本月金额合计大于1000的，没有筛选。

tte3

ykcbf1100 发表于 2022-12-14 15:20
当月合计金额大于1000才算新客户，你这个代码还有点问题的。

嗯，是的，没有筛选，数据太大了。

tte3

small_small 发表于 2022-12-14 13:38

本例中，E公司不能算1月新客户，而是要算2月新客户。当然，如果2月没数据的话，E公司就不能算新客户了，因为它的当月合计金额太小了。