Udligning

Er de unikke dem der kun findes 1 af i kolonne H eller I
eller
Er det dem i kolonne H som ikke findes i kolonne I
eller omvendt ?

Der forekommer unikke u både kolonne H & I.

Denne kode kopierer værdier i kolonne H som ikke findes i kolonne I til kolonne A i Ark2
Ret evt. kilde/dest. arknavnene i linie 2 og 3

Sub CopyUnikke()

Set sh1 = Sheets("Ark1") ' Kilde Ark
Set sh2 = Sheets("Ark2") ' Destinations Ark
rkH = sh1.Cells(5000, "H").End(xlUp).Row
rkI = sh1.Cells(5000, "I").End(xlUp).Row
Set rngH = sh1.Range("H2:H" & rkH)
Set rngI = sh1.Range("I2:I" & rkI)

For Each c In rngH
  rkA = sh2.Cells(1000, "A").End(xlUp).Offset(1, 0).Row
  If WorksheetFunction.CountIf(rngI, c.Value) = 0 Then c.Copy sh2.Cells(rkA, "A")
Next

End Sub

Hvordan går det ?