Excel - Makro untuk memadamkan baris alternatif

Isu

Saya ingin memadamkan setiap baris ganti dari helaian kerja saya. Saya cuba merakam makro, tetapi ia hanya memadamkan baris tertentu seperti yang ditunjukkan di bawah (Baris 4: 4). Bagaimanakah makro ini boleh ditukar menjadi yang lebih serba boleh?

 Sub Macro3 () Macro3 Shortcut Papan Kekunci Makro: Ctrl + q Rows ("4: 4"). Pilih Selection.Delete Shift: = xlUp End Sub

Penyelesaian

Hanya gunakan makro di bawah:

 Sub deleteAlternateRow () Dim startAtRow, endAtRow, rowCounter As Long startAtRow = 2 endAtRow = 100 For rowCounter = startAtRow To endAtRow Rows (rowCounter) .Select Selection.Delete Shift: = xlUp Next End Sub