Macro eliminar filas vacías
Hola. Necesito una macro para eliminar filas vacías de una determinada columna. Por ejemplo la columna "d", que elimine todas las filas vacías que se vaya encontrando hasta la fila 1000 por ejemplo.
1 respuesta
Respuesta de Luis Mondelo
1
Ejecuta esta macro y te borrará todas las filas de la columna D que encuentre la celda vacía, además si tope de máximo.
(Recuerda finalizar y puntuar mi trabajo)
Sub borrar_lineas()
Range("d65000").End(xlUp).Offset(1, 0).Value = "final"
Range("d1").Select
Do While ActiveCell.Value <> "final"
If IsEmpty(ActiveCell) Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveCell.ClearContents
End Sub
