Comparing Column A to Column B to Extract and Append Values

[PC_Meister]

Hello,

I am wondering if there is a more elegant/faster way to compare column A to column B and then extract and append the unique values in column B that are not present in column A, than using nested loops as shown in the following

For i = LBound(vSource, 1) To UBound(vSource, 1)
            For j = LBound(vTarget, 1) To UBound(vTarget, 1)
                myBool = True
                If vSource(i, 1) = vTarget(j, 1) Then
                    myBool = False
                End If
                
                If myBool Then ...

Any ideas? Thanks in advance

 

[Rijnsent]

Hey PC_Meister,

I think that your code looks pretty efficient. A completely different approach would be to use Excel features like so:
-Copy contents of Column A to a new sheet
-Copy contents of Column B below
-Remove duplicates
-In the column next to where you copied your data, fill a IFERROR(MATCH(cell,COLUMN B,1),0) formula to get either the row number (found item in column B) or a 0 (not found)
-Filter that range for a 0 answer, copy the cells and paste them at the bottom of column B
-Delete the new sheet

A different approach, but as said, your code looks pretty good,

Cheers,

Koen