delete all duplicates except one

[daveyc18]

im trying to delete all duplicates based on an ID in column F, except one (it doesn't matter which one I keep...ie it could be the first one, could be the last duplicate).

trying to do this with a macro.

 

[gfdwer2]

Just a little reminder, cells B12, B14, B16, B18, B20, B22, and B24 are drop down lists, that's why it's imperative for me to just clear the contents.

 

[gfdwer2]

The Scripting.Dictionary is part of ActiveX, so cannot be used on a Mac.

I see thanks for that clarification.

 

[DanteAmor]

The Scripting.Dictionary is part of ActiveX, so cannot be used on a Mac.

Thanks Fluff, I didn't find documentation of whether or not it is an ActiveX

 

[DanteAmor]

Just a little reminder, cells B12, B14, B16, B18, B20, B22, and B24 are drop down lists, that's why it's imperative for me to just clear the contents.

Try this

Sub test()
  Dim i As Long, f As Range
  For i = 24 To 14 Step -2
    Set f = Range("B12:B" & i - 2).Find(Range("B" & i), , xlValues, xlWhole)
    If Not f Is Nothing Then Range("B" & i).ClearContents
  Next
End Sub

 

[DataBlake]

if you still get an error on pc go to your VBA screen and click tools > references
make sure your "Microsoft Excel Object Library" (and maybe your office library) are ticked.

 

[gfdwer2]

Thank you for all your responses. I'll try the code DanteAmor suggested and update yall

 

[gfdwer2]

if you still get an error on pc go to your VBA screen and click tools > references
make sure your "Microsoft Excel Object Library" (and maybe your office library) are ticked.

I'll take note of that.

 

[DanteAmor]

Thank you for all your responses. I'll try the code DanteAmor suggested and update yall

I'm glad to help you. Thanks for the feedback.

 

[gfdwer2]

I'm glad to help you. Thanks for the feedback.

OMG you must be heaven sent. The code works like a charm.

 

[DanteAmor]

I'm glad to help you. I appreciate your kind comments.