Try this, I'm not sure how long it will take with 70,000 rows to check.
Option Explicit
![]()
Sub getUniques() Dim rColA As Range Dim rColB As Range Dim cl As Range Dim str As String Set rColA = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)) Set rColB = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)) For Each cl In rColA str = cl.Value If Application.WorksheetFunction.CountIf(rColB, str) = 0 Then Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = str Next cl End Sub
Bookmarks