eliminare una riga ogni 2

Salve, ho un file in cui ho delle misure che vengono effettuate ogni 15 minuti. Mi sono accorto però che la stessa misura si ripete due volte, come posso cancellare una delle due? In pratica, ho bisogno che tralasciata la riga di intestazione, dal file 1 riga ogni 2 venga cancellata. Come posso fare?

ciao

due metodi per questo lavoro

uno con una sub() da inserire nel foglio interessato

---

Sub eliminadoppi()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

---

il secondo dato che ho visto che utilizzi la versino 2019
selezioni tutta la colonna
vai in Dati e fai Rimuovi Duplicati