軒云熊

回復 1# dou10801

有空幫我試試看 是不是你要的結果 謝謝

1. Public Sub 比對練習()
   
2.     Application.ScreenUpdating = False
   
3. 
   
4.     Range([H3], [I3].End(4)).ClearContents
   
5.     Brr = Range([A1], [D65535].End(3))
   
6. 
   
7.     For X = 2 To UBound(Brr)
   
8.         If Brr(X, 1) & Brr(X, 2) = [E3] & [F3] Then
   
9.             Brr(1 + k, 1) = Brr(X, 1)
   
10.             Brr(1 + k, 2) = Brr(X, 2)
    
11.             k = k + 1
    
12.         End If
    
13.     Next X
    
14.    
    
15.     [H3].Resize(k, 2) = Brr
    
16. 
    
17.     Application.ScreenUpdating = True
    
18. End Sub

複製代碼