Neuvokaa viisaat!

Lista 1 taulukkoon 1, Lista 2 taulukkoon 2:
Lista 1:n A-sarakken sanojen viereen sarakkeeseen B =LASKE.JOS(Taul2!$A$1:$A$900;A1)
Nyt B-sarakkeessa on Lista 1 sanojen lukumäärä Lista 2:ssa, eli 1 jos löytyy 2:sta ja 0 jos on vain lista 1:ssä.
Sorttaa ja poista ykkösen sisältävät rivit.

tekee aktiivisen taulukon A -sarakkeeseen listan uniikeista. Muuta polku ja tiedostojen nimet sopivaksi. Tiedostojen pitää olla muotoa testi1 ja testi2 tms.

moduuliin...

Sub UniikitTiedostosta()
Dim i As Long
Dim vika As Long
For i = 1 To 2
Workbooks.Open Filename:="c:\testi" & i & ".csv"
ActiveSheet.UsedRange.Copy
ActiveWorkbook.Close
vika = Range("A65336").End(xlUp).Row
Range("A" & vika).Select
ActiveSheet.Paste
Next i
vika = Range("A65536").End(xlUp).Row
For i = vika To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & i), Range("A" & i).Text) > 1 Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Keep EXCELing
@Kunde