检测基础数据表中O列的值是否在结果表中存在进行添加

DJYZX

检测基础数据表中O列的值是否在结果表中存在，若存在则忽视，若不存在则添加到结果表中A列中。基础数据每天会累计添加。

limonet

函数：=UNIQUE(基础数据!O:O)

ykcbf1100

附件供参考。。。

ykcbf1100

用2个字典是因为O列有重复，要去重。

1. Sub ykcbf()  '//2024.3.18
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Set d1 = CreateObject("Scripting.Dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     Set Sh = ThisWorkbook.Sheets("结果")
   
6.     With Sh
   
7.         arr = .UsedRange
   
8.         For i = 2 To UBound(arr)
   
9.             s = arr(i, 1)
   
10.             d(s) = i
    
11.         Next
    
12.     End With
    
13.     On Error Resume Next
    
14.     With Sheets("基础数据")
    
15.         r = .Cells(Rows.Count, "o").End(3).Row
    
16.         arr = .Range("o1:o" & r)
    
17.         For i = 2 To UBound(arr)
    
18.             s = arr(i, 1)
    
19.             If d(s) = Empty Then d1(s) = ""
    
20.         Next
    
21.     End With
    
22.     With Sh
    
23.         r = .Cells(Rows.Count, 1).End(3).Row
    
24.         .Cells(r + 1, 1).Resize(d1.Count, 1) = WorksheetFunction.Transpose(d1.keys)
    
25.     End With
    
26.     Set d = Nothing
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

gwjkkkkk

字典吧。。。

xbox1210

Sub test()
    Sheet2.[a2].Resize(1048575) = Sheet1.[o2].Resize(1048575).Value
    Sheet2.Columns(1).RemoveDuplicates (1)
End Sub