Eliminar cada 2 filas una fila
Hola, me gustaría encontrar un macro o una fórmula que me elimine una fila cada dos filas, es decir me quedo por ejemplo con la fila 1 y 2 y elimino la 3, luego me quedo con la 4 y 5 y elimino la 6 y así sucesivamente. Muchas gracias.
1 respuesta
Respuesta de vikmar
1
Aquí está el código, me avisas si tienes alguna duda
no olvides de cerrar la pregunta.
Sub borracadatres()
lastrow = Cells(65536, 1). End(xlUp). Row 'primero identificamos el último renglón de tus datos
'Aqui supongo que los datos están en la columna 1
Dim t As Integer
For t = 3 To lastrow Step 2
Cells(t, 1).EntireRow.Delete ' borra todo el renglón
lastrow = Cells(65536, 1).End(xlUp).Row
Next t
MsgBox ("Listo")
End Sub
no olvides de cerrar la pregunta.
Sub borracadatres()
lastrow = Cells(65536, 1). End(xlUp). Row 'primero identificamos el último renglón de tus datos
'Aqui supongo que los datos están en la columna 1
Dim t As Integer
For t = 3 To lastrow Step 2
Cells(t, 1).EntireRow.Delete ' borra todo el renglón
lastrow = Cells(65536, 1).End(xlUp).Row
Next t
MsgBox ("Listo")
End Sub
