compare 2 lists and common ones display on the 3rd column

[elaine]

Hi,

Is there a way to compare data in 2 columns, and display the same ones
that occur in both lists to a 3rd column?

Thanks.
Elaine.

 

[somethinglikeant]

Use a macro:-


Sub CompareAndPutinColumn3()
j = 1
For i = 1 To Application.WorksheetFunction.CountA(Columns(1))
If Application.WorksheetFunction.CountIf(Columns(2), Cells(i, 1)) >
0 Then
Cells(j, 3) = Cells(i, 1)
j = j + 1
End If
Next i
End Sub

somethinglikeant

 

[elaine]

thanks!!!

Use a macro:-


Sub CompareAndPutinColumn3()
j = 1
For i = 1 To Application.WorksheetFunction.CountA(Columns(1))
If Application.WorksheetFunction.CountIf(Columns(2), Cells(i, 1)) >
0 Then
Cells(j, 3) = Cells(i, 1)
j = j + 1
End If
Next i
End Sub

somethinglikeant

 

[elaine]

thanks!!!

Use a macro:-


Sub CompareAndPutinColumn3()
j = 1
For i = 1 To Application.WorksheetFunction.CountA(Columns(1))
If Application.WorksheetFunction.CountIf(Columns(2), Cells(i, 1)) >
0 Then
Cells(j, 3) = Cells(i, 1)
j = j + 1
End If
Next i
End Sub

somethinglikeant