Find pairs of data

[excel_root]

Hi everyone,

I would appreciate if anyone can help me. I am trying to write a code, which will find duplicates within two given columns. However, I need only "pairs" to be found - not all duplicates at one time. For example, if column A has 3 values of 50 and column B only two values of 50 - code will find only two values in column A and two in column B - i.e. pairs. Can you please help me?

 

[excel_root]

Ok, just replace this line:

If k > 0 Then Sheets("Sheet2").Range("A2").Resize(k, 2) = vc

with this:

If k > 0 Then
Sheets("Sheet2").Range("A2").Resize(k, 2) = vc
Sheets("Sheet2").Range("C2").Resize(k, 2) = vc
End If

All I can say - it works! Thank you very very much!!