如何複製VBA中的匹配號碼或不匹配號碼

Question

如何在兩張紙張之間找到匹配或不匹配的數字，並將匹配的數字複製到sheet3列A和B中以獲得不匹配的數字。這裏是我的代碼，但有些如何不工作。

 For i = 1 To lastrow 
     For ii = 1 To xlastrow 
       If Worksheets("sheet1").Cells(i,1) = Worksheets("sheet2").Cells(ii, 1) Then 
        Worksheets("sheet3").Range("A" & x) = Worksheets("sheet1").Cells(i, 1)     
        x = x + 1 
       ElseIf Worksheets("sheet1").Cells(i,1) <> Worksheets("sheet2").Cells(ii, 1) Then 
        Worksheets("sheet3").Range("B" & x) = Worksheets("sheet1").Cells(i, 1)     
        x = x + 1 

     Next ii 
     Next i 

Answer 1

我並不驚訝，excel沒有響應。

如果我理解正確，您將運行一個嵌套循環，每次循環4000到5000次，因此最多可以進行25,000,000次迭代，在此期間您引用多個電子表格單元格值。

無論你想要做什麼（不完全清楚），使用vlookup等工作表函數都可以做得更好。

如果你必須使用嵌套循環，你可以做的一件事就是先將所有的值讀入數組，然後循環遍歷這個數組而不是電子表格單元格。