两表指定列对比，将不同值的填写到下面。

wbjiqpl

两表指定列对比，将不同值的填写到下面。现在用循环实现了该功能，但因为数据可能是几千行，速度太慢，求大神帮忙改为字典之类的运行，提高速度。

1. Sub Test()
   
2.     Dim ChongFu As Boolean
   
3.     For b = 1 To Range("A65536").End(xlUp).Row
   
4.         ChongFu = False
   
5.         For a = 1 To Sheet2.Range("A65536").End(xlUp).Row
   
6.             If Sheet2.Cells(a, 1) & Sheet2.Cells(a, 2) & Sheet2.Cells(a, 12) = Sheet1.Cells(b, 1) & Sheet1.Cells(b, 2) & Sheet1.Cells(b, 3) Then
   
7.                 ChongFu = True
   
8.                 Exit For
   
9.             End If
   
10.         Next
    
11.         If ChongFu = False Then Sheet2.Cells(Sheet2.Range("a65536").End(xlUp).Row + 1, 1) = Sheet1.Cells(b, 1)
    
12.         If ChongFu = False Then Sheet2.Cells(Sheet2.Range("a65536").End(xlUp).Row, 2) = Sheet1.Cells(b, 2)
    
13.         If ChongFu = False Then Sheet2.Cells(Sheet2.Range("a65536").End(xlUp).Row, 12) = Sheet1.Cells(b, 3)
    
14.     Next
    
15. End Sub
    

复制代码

wbjiqpl

朱荣兴 发表于 2018-10-5 11:06
Sub bidui()
Set d = CreateObject("scripting.dictionary")
ws = Sheet2.Cells(Rows.Count, 1).End(xlUp ...

谢谢朱版主，需要的。但我提取的数据是放到AB列和L列。现在 的代码是提到ABC列，需要怎么改一下呢？