[excel] eliminare righe

[bootzenn]

ciao

ho un foglio excel con più di 400 righe di dati devo eliminare tutte le righe pari (o dispari in un altro foglio)
aiutino veloce veloce
(non uso quasi mai excel )
grazie ciao

[nicola75ss]

Registra queste due macro, userai poi quella che ti serve.
Apri il foglio in cui vuoi cancellare le righe. Al posto di 10 metti il valore corrispondente all'ultima riga. Nel caso debba cancellare righe dispari metti il valore delle righe -1.
P.S. Per precauzione fai prima una copia di backup del tuo file.

Sub eliminapari()
For i = 10 To 2 Step -2
     ActiveSheet.Rows(i).EntireRow.Delete
Next i
End Sub


Sub eliminadispari()
For i = 9 To 1 Step -2
     ActiveSheet.Rows(i).EntireRow.Delete
Next i
End Sub