求助高手！用VBA，两列比对去重后，再把单列分多列。

cgtc001

B列的数据跟A列比对，去掉B列在A列中已经有的数据，留下B列不重复的数据输入在C列。
求高手指点。感谢。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("店铺1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a2:a" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       d(arr(i, 1)) = ""
    
11.     Next
    
12.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
13.     arr = .Range("b2:b" & r)
    
14.     ReDim brr(1 To UBound(arr), 1 To 1)
    
15.     m = 0
    
16.     For i = 1 To UBound(arr)
    
17.       If Not d.exists(arr(i, 1)) Then
    
18.         m = m + 1
    
19.         brr(m, 1) = arr(i, 1)
    
20.       End If
    
21.     Next
    
22.     .Range("c2").Resize(m, 1) = brr
    
23.   End With
    
24. End Sub
    

复制代码

chxw68

详见附件。

cgtc001

chxw68 发表于 2017-12-7 16:34
详见附件。

感谢感谢
！！！太感谢了！！！