Excel - Makro untuk menghapus baris alternatif

Isu

Saya ingin menghapus setiap baris alternatif dari lembar kerja saya. Saya mencoba merekam makro, tetapi hanya menghapus baris tertentu seperti yang ditunjukkan di bawah ini (Baris 4: 4). Bagaimana makro ini dapat dikonversi menjadi yang lebih fleksibel?

 Sub Macro3 () Pintasan Keyboard Makro3 Macro3: Ctrl + q Rows ("4: 4"). Pilih Selection.Delete Shift: = xlUp End Sub

Larutan

Cukup gunakan makro di bawah ini:

 Sub deleteAlternateRow () Dim startAtRow, endAtRow, rowCounter As long startAtRow = 2 endAtRow = 100 Untuk rowCounter = startAtRow Untuk mengakhiriAtRow Baris (rowCounter) .Pilih Seleksi.Delete Shift: = xlUp Berikutnya End Sub