Sub macroeliminarighe()
For i = 10 To 2 Step -2
ActiveSheet.Rows(i).EntireRow.Delete
Next i
End Sub
posizionati sulla cella A1 elimina tutte le righe pari fino alla riga 10
( For i = 9 To 1 Step -2
ActiveSheet.Rows(i).EntireRow.Delete Next i) per eliminare le righe dispari
Nessun commento:
Posta un commento