Excel: una macro per eliminare righe alternative

Problema

Voglio eliminare ogni riga alternativa dal mio foglio di lavoro. Ho provato a registrare macro, ma elimina solo una riga particolare come mostrato di seguito (Riga 4: 4). Come può essere convertita questa macro in una più versatile?

 Macro sottotitoli () Macro3 Macro Tasti di scelta rapida: Ctrl + q File ("4: 4"). Seleziona Selection.Delete Shift: = xlUp End Sub

Soluzione

Basta usare la seguente macro:

 Sub deleteAlternateRow () Dim startAtRow, endAtRow, rowCounter As Long startAtRow = 2 endAtRow = 100 Per rowCounter = startAtRow A endAtRow Rows (rowCounter) .Seleziona Selection.Delete Shift: = xlUp Next End Sub