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
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas