Macro Borrar Filas pares

Hola, necesito un macro para borrar todas las filas pares es decir, fila 2,4,6,8... Hasta la 3500.

Gracias!

1 Respuesta

Respuesta
1

Con esta macro

Sub eliminarfilaspares()
'Por.DAM
For i = 3500 To 1 Step -1
    If Application.IsEven(i) Then Rows(i).Delete
Next
End Sub

saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas