Excel - makro za brisanje nadomestnih vrstic

Težava

Želim izbrisati vsako drugo vrstico iz delovnega lista. Poskušal sem posneti makro, vendar izbriše samo določeno vrstico, kot je prikazano spodaj (vrstica 4: 4). Kako lahko ta makro pretvorimo v bolj vsestranski?

 Macro3 () Macro3 Makro tipkovnica Bližnjica: Ctrl + q Vrstice ("4: 4") Izberite Selection.Delete Shift: = xlUp End Sub 

Rešitev

Samo uporabite spodnji makro:

 Sub deleteAlternateRow () Dim startAtRow, endAtRow, rowCounter Kot dolg startAtRow = 2 endAtRow = 100 Za rowCounter = startAtRow Za konecRet vrstice (rowCounter). 

Upoštevajte, da

Hvala za rizvisa1 za ta nasvet na forumu.