Hi stevesunfold,
Just add the code to a module in your workbook then use this forumla in cell C2 and drag down
=TEXT(A2,"dd/mm/yy")&" "&TEXT(B2,"HH:MM")
module.
Sub DeleteRows()
Dim Last, Cnt As Long
Dim Rng As Range
Last = Cells(Rows.Count, "C").End(xlUp).Row
Set Rng = Range("C2:C" & Last)
For Cnt = Last To 1 Step -1
If WorksheetFunction.CountIf(Rng, Cells(Cnt, "C").Value) > 1 Then
Cells(Cnt, "C").EntireRow.Delete
End If
Next Cnt
End Sub
The code will run from the last cell in Col C to C2 deleting the entirerow as it goes.
Non VBA would be use this in C2 and drag down
=IF(MAX(COUNTIF(C2:C20,C2:C20))>1,"Duplicates","No Duplicates")
Then filter on Duplicates and delete
HTH
VBA Noob
Bookmarks