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
> Hi,
>
[quoted text clipped - 3 lines]
> Thanks.
> Elaine.
elaine - 11 Jul 2006 15:48 GMT
thanks!!!
> Use a macro:-
>
[quoted text clipped - 18 lines]
> > Thanks.
> > Elaine.
elaine - 11 Jul 2006 15:48 GMT
thanks!!!
> Use a macro:-
>
[quoted text clipped - 18 lines]
> > Thanks.
> > Elaine.