[已解决]类型不匹配问题

hwc2ycy

重新定义一个够大的数组，超过65536，把D.KEYS转入新数组，再写入就OK了。

hwc2ycy

1.   Sub Eee()
   
2.     Dim t#
   
3.     t = Timer
   
4.     If Range("a1") = "" Then
   
5.         MsgBox "无数据可处理。"
   
6.         Exit Sub
   
7.     End If
   
8.    
   
9.     Dim d, Temp
   
10.     Dim R&, R1&
    
11.     Dim arr, arr1
    
12.    
    
13.     Set d = CreateObject("Scripting.Dictionary")
    
14.     R = Range("A" & Rows.Count).End(xlUp).Row
    
15.     R1 = Range("e" & Rows.Count).End(xlUp).Row
    
16.     arr = Range("A1:A" & R).Value
    
17.     arr1 = Range("e1:e" & R1).Value
    
18.    
    
19.     For Each Temp In arr
    
20.         d(Temp) = 1
    
21.     Next
    
22.     For Each Temp In arr1
    
23.         If Not d.Exists(Temp) Then
    
24.             d(Temp) = 1
    
25.         Else
    
26.             d.Remove (Temp)
    
27.         End If
    
28.     Next
    
29.    
    
30.     Dim arr3(), k&
    
31.     ReDim arr3(1 To d.Count, 1 To 1)
    
32.     For Each Temp In d.keys
    
33.         k = k + 1
    
34.         arr3(k, 1) = Temp
    
35.     Next
    
36.     Range("b1").Resize(k, 1) = arr3
    
37.     MsgBox Timer - t
    
38.   End Sub

复制代码

hwc2ycy

7W行数据，确实够吃力啊，虽然也是几秒，相比于平常，感觉好人等。

hwc2ycy

今天算是学到知识点了。