Méthode de comparaison rapide de 2 colonnes

Ici, c'est non-bouclage le code qui s'exécute presque instantanément pour l'exemple donné ci-dessus à partir de mehow.

Sub HTH()

    Application.ScreenUpdating = False

    With Range("A2", Cells(Rows.Count, "A").End(xlUp)).Offset(, 1)
        .Formula = "=VLOOKUP(A2,I:I,1,FALSE)"
        .Value = .Value
        .SpecialCells(xlCellTypeConstants, 16).Offset(, -1).Copy Range("I" & Rows.Count).End(xlUp).Offset(1)
        .ClearContents
    End With

    Application.ScreenUpdating = True

End Sub

Vous pouvez utiliser ce que la colonne que vous aimez comme le mannequin de la colonne.

Info:
Fait de se prendre dans la boucle

Quelques notes sur la vitesse d'essai:

La compilation du projet vba avant d'exécuter le test.

Pour Chaque Boucle de l'exécution est plus rapide que Pour i = 1 À 10 boucles.

Si possible, sortir de la boucle si la réponse est trouvée pour empêcher inutile de boucles avec Sortie Pour.

Long exécute plus rapidement que entier.

Enfin plus rapide méthode de boucle (si vous devez en boucle mais sa reste pas aussi vite que les au-dessus de non-bouclage de la méthode):

Sub Looping()
    Dim vLookup As Variant, vData As Variant, vOutput As Variant
    Dim x, y
    Dim nCount As Long
    Dim bMatch As Boolean

    Application.ScreenUpdating = False

    vData = Range("A2", Cells(Rows.Count, "A").End(xlUp)).Value
    vLookup = Range("I2", Cells(Rows.Count, "I").End(xlUp)).Value

    ReDim vOutput(UBound(vData, 1), 0)

    For Each x In vData
        bMatch = False
        For Each y In vLookup
            If x = y Then
                bMatch = True: Exit For
            End If
        Next y
        If Not bMatch Then
            nCount = nCount + 1: vOutput(nCount, 0) = x
        End If
    Next x

    Range("I" & Rows.Count).End(xlUp).Offset(1).Resize(nCount).Value = vOutput

    Application.ScreenUpdating = True      

End Sub

Comme par @brettdj commentaires Pour l'alternative Suivante:

For x = 1 To UBound(vData, 1)
    bMatch = False
    For y = 1 To UBound(vLookup, 1)
        If vData(x, 1) = vLookup(y, 1) Then
            bMatch = True: Exit For
        End If
    Next y
    If Not bMatch Then
        nCount = nCount + 1: vOutput(nCount, 0) = vData(x, 1)
    End If
Next x

Juste écrit ce rapidement... Pouvez-vous tester cela pour moi?

Sub Sample()
Dim wsDes As Worksheet, wsSrc As Worksheet
Dim rngDes As Range, rngSrc As Range
Dim DesLRow As Long, SrcLRow As Long
Dim i As Long, j As Long, n As Long
Dim DesArray, SrcArray, TempAr() As String
Dim boolFound As Boolean
Set wsDes = ThisWorkbook.Sheets("Sheet1")
Set wsSrc = ThisWorkbook.Sheets("Sheet2")
DesLRow = wsDes.Cells(Rows.Count, 1).End(xlUp).Row
SrcLRow = wsSrc.Cells(Rows.Count, 1).End(xlUp).Row
Set rngDes = wsDes.Range("A2:A" & DesLRow)
Set rngSrc = wsSrc.Range("I3:I" & SrcLRow)
DesArray = rngDes.Value
SrcArray = rngSrc.Value
For i = LBound(SrcArray) To UBound(SrcArray)
For j = LBound(DesArray) To UBound(DesArray)
If SrcArray(i, 1) = DesArray(j, 1) Then
boolFound = True
Exit For
End If
Next j
If boolFound = False Then
ReDim Preserve TempAr(n)
TempAr(n) = SrcArray(i, 1)
n = n + 1
Else
boolFound = False
End If
Next i
wsDes.Cells(DesLRow + 1, 1).Resize(UBound(TempAr) + 1, 1).Value = _
Application.Transpose(TempAr)
End Sub

Function Ranges_Iguais(rgR1 As Range, rgR2 As Range) As Boolean
Dim vRg1 As Variant
Dim vRg2 As Variant
Dim i As Integer, j As Integer
vRg1 = rgR1.Value
vRg2 = rgR2.Value
i = 0
Do
i = i + 1
j = 0
Do
j = j + 1
Loop Until vRg1(i, j) <> vRg2(i, j) Or j = UBound(vRg1, 2)
Loop Until vRg1(i, j) <> vRg2(i, j) Or i = UBound(vRg1, 1)
Ranges_Iguais = (vRg1(i, j) = vRg2(i, j))
End Function