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.

	A	B	C	D
1	10/15/2019	lesson plans	TBA	TBA
2	10/15/2019	homework	TBA	TBA
3	10/15/2019	extra credit	TBA	TBA
4
5	10/16/2019	TBA	TBA	TBA
6	10/16/2019	TBA	TBA	TBA
	10/17/2019	TBA	TBA	TBA

<tbody>
</tbody>

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.