按日期和门店提取不重复名字

zzq0117

按日期和门店提取不重复名字

lisongmei

练习一下。。。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.4.8
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("表1")
   
6.         st = .[b2] & "|" & .[c2] & "|" & .[d2]
   
7.     End With
   
8.     With Sheets("表2")
   
9.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
10.         arr = .[a1].Resize(r, 6)
    
11.     End With
    
12.     ReDim brr(1 To 1000, 1 To 1)
    
13.     For i = 2 To UBound(arr)
    
14.         s = arr(i, 4) & "|" & Month(arr(i, 3)) & "|" & Day(arr(i, 3))
    
15.         ss = arr(i, 6)
    
16.         If s = st Then
    
17.             If Not d.exists(ss) Then
    
18.                 m = m + 1
    
19.                 d(ss) = m
    
20.                 brr(d(ss), 1) = arr(i, 6)
    
21.             End If
    
22.         End If
    
23.     Next
    
24.     With Sheets("表1")
    
25.         .[a4:b1000] = ""
    
26.         .[a4].Resize(m, 1) = brr
    
27.     End With
    
28.     Set d = Nothing
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "OK！"
    
31. End Sub
    
32. 
    

复制代码

swl4561255

1. Sub test()
   
2. arr = Sheets("表2").Range("A1").CurrentRegion
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = 2 To UBound(arr)
   
5.     If arr(i, 3) = DateSerial(2024, [C2], [D2]) And arr(i, 4) = [B2] Then
   
6.         d(arr(i, 3) & "-" & arr(i, 4) & "-" & arr(i, 6)) = arr(i, 6)
   
7.     End If
   
8. Next
   
9. t = d.items
   
10. [A4].Resize(d.Count, 1) = Application.Transpose(t)
    
11. End Sub

复制代码

无关岁月

1. =LOOKUP(,0/FREQUENCY(1,(COUNTIF(A$3:A3,表2!F$2:F100)=0)*(表2!C$2:C100=DATE(2024,C$2,D$2))),表2!F$2:F100)&""

复制代码

zzq0117

ykcbf1100 发表于 2024-4-8 12:05
参与一下。。。

老师好，把代码复制到另一张表后提示这个，怎么修改？而且日期大于表中日期时提示错误。

ykcbf1100

zzq0117 发表于 2024-4-8 14:42
老师好，把代码复制到另一张表后提示这个，怎么修改？而且日期大于表中日期时提示错误。

上附件看看。

zzq0117

swl4561255 发表于 2024-4-8 12:09

代码复制到另一张表提示这个

ykcbf1100

zzq0117 发表于 2024-4-8 14:42
老师好，把代码复制到另一张表后提示这个，怎么修改？而且日期大于表中日期时提示错误。

大概知道你出错的原因，应该是没查到数据。

用这个附件吧。