Excel - makronaredba za brisanje zamjenskih redova

Problem

Želim izbrisati svaki drugi redak iz radnog lista. Pokušao sam snimiti makronaredbu, ali ona samo briše određeni redak kao što je prikazano ispod (Red 4: 4). Kako se ova makronaredba može pretvoriti u svestraniju?

 Macro3 () Macro3 Makro tipkovnica Prečac: Ctrl + q Redovi ("4: 4") Odaberite Selection.Delete Shift: = xlUp End Sub 

Riješenje

Samo upotrijebite donju makronaredbu:

 Sub deleteAlternateRow () Dim startAtRow, endAtRow, rowCounter Kao Long startAtRow = 2 endAtRow = 100 Za rowCounter = startAtRow Za krajAtRow Rows (rowCounter). 

Zapamtite to

Zahvaljujući rizvisa1 za ovaj savjet na forumu.