VBA to clear duplicate dates in column but keep row

[Tocix]

Good morning,

Please help me out with macros that would cleared out duplicate dates on column A but keep all rows. For example clear out the one I have it in red.

[TABLE="class: grid, width: 200"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]10/15/2019[/TD]
[TD]lesson plans[/TD]
[TD]TBA[/TD]
[TD]TBA[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]10/15/2019
[/TD]
[TD]homework
[/TD]
[TD]TBA[/TD]
[TD]TBA[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]10/15/2019[/TD]
[TD]extra credit
[/TD]
[TD]TBA[/TD]
[TD]TBA[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]10/16/2019[/TD]
[TD]TBA[/TD]
[TD]TBA[/TD]
[TD]TBA[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]10/16/2019[/TD]
[TD]TBA[/TD]
[TD]TBA[/TD]
[TD]TBA[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]10/17/2019[/TD]
[TD]TBA[/TD]
[TD]TBA[/TD]
[TD]TBA[/TD]
[/TR]
</tbody>[/TABLE]


Thanks

 

[jasonb75]

Try applying conditional formatting to the used part of column A. Use =A1=A2 as the rule, then set the font colour the same as the fill colour.

This will hide the date instead of removing them, which is more useful if you need to summarise your data by date at a later point.

 

[Tocix]

When I copied to another sheet the duplicate dates still carried over. I just want to clear it out completely that way my other sheet only have one date shown.

 

[jasonb75]

The conditional formatting will carry over as well so the duplicates will be hidden in the copy.

 

[Peter_SSs]

Try

Sub Remove_Dupes()
  Dim r As Long
  
  For r = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If Range("A" & r).Value = Range("A" & r - 1).Value Then Range("A" & r).ClearContents
  Next r
End Sub

 

[Tocix]

Try

Sub Remove_Dupes()
  Dim r As Long
  
  For r = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If Range("A" & r).Value = Range("A" & r - 1).Value Then Range("A" & r).ClearContents
  Next r
End Sub

Works perfectly! thank you very much for your help.

 

[Peter_SSs]

Works perfectly! thank you very much for your help.

You're very welcome. Thanks for the follow-up.