Compare Cell Contents and Clear Dupl

[donlincolnmre2]

Hello

I have a spreadsheet which contains some number in column D, E, G, H, I, J, K & L

The numbers in Column D should be compared against column E, G, H, I, J, K & L and if found then the macro should clear that cell content in Column D


Here is the Data
==========

MREXPORT.txt
	A	B	C	D	E	F	G	H	I	J	K	L
13	25495	Woodside	92563	951-310-5502	951-310-5502	Diane	800-225-5947	951-310-5502	866-416-8443	951-310-5502	951-310-5502	866-281-6611
14	26403	Arboretum	92563		951-551-9015	Cecilia	951-304-1200		951-304-9531		951-551-9015
15	39900	Ashwood	92563	951-760-3880		Marta	951-303-0307	951-303-0307	951-303-0447	951-303-0307	951-288-2272	951-303-0447
16	40058	malacca	92562		951-479-8190	Teri	951-479-8190		951-346-3294		951-256-0160	951-346-3294
17	31844	Empresa	92563	714-744-3848	714-744-3848	Tina	714-882-4344	714-744-3848	714-882-4388	714-744-3848	714-814-7559	877-274-8759
18	38492	Encanto	92563			Joan	951-699-4634		951-699-5097		951-970-2136
19	29072	Cassia	92563			Mary	951-326-3100		951-326-3106		951-255-1135
20	29364	EAGLE	92563	951-461-0992	951-445-4195	Kim	951-676-1122	951-288-5564	951-699-3268	951-288-5564	951-288-5564
MREXPORT

 

[daniels012]

You can use helper column.
In M13 put the formula:
=countif(E13:L13,D13)
Then auto filter column m for >0 and delete column D's data.

Michael

 

[brian.wethington]

Sub Test()

Set Rng = Range("E:L")
For Each Ce In Range("D13:D20")
    If Len(Ce.Value) <> 0  And WorksheetFunction.Countif(Rng, Ce.Value) > 0 Then  Ce.ClearContents
Next

End Sub

Does some VBA like this help? this only Checks D13 to D20, change Ce range according to your needs.

 

[donlincolnmre2]

Hello Brian

That VBA worked

Thanks a lot!