Excel - Una macro para eliminar filas alternativas

Problema

Quiero eliminar cada fila alternativa de mi hoja de trabajo. Intenté grabar macro, pero solo borra una fila en particular como se muestra a continuación (Fila 4: 4). ¿Cómo se puede convertir esta macro a una más versátil?

 Sub Macro3 () Macro3 Macro Teclado Atajo: Ctrl + q Filas ("4: 4"). Seleccione Selection.Delete Shift: = xlUp End Sub

Solución

Solo usa la macro a continuación:

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