Excel - En makro for å slette alternative rader

Utgave

Jeg vil slette hver alternativ rad fra arbeidsarket mitt. Jeg prøvde å registrere makro, men det sletter bare en bestemt rad som vist under (Row 4: 4). Hvordan kan denne makroen konverteres til en mer allsidig?

 Sub Macro3 () Makro3 Makro Tastatur Genvei: Ctrl + q Rader ("4: 4"). Velg Selection.Delete Shift: = xlUp End Sub 

Løsning

Bare bruk makroen nedenfor:

 Sub deleteAlternateRow () Dim startAtRow, endAtRow, rowCounter så lenge startAtRow = 2 endAtRow = 100 For rowCounter = startAtRow Til endAtRow Rows (rowCounter) .Velg Selection.Delete Shift: = xlUp Next End Sub 

Noter det

Takk til rizvisa1 for dette tipset på forumet.