Eliminar CELDAS vacías mediante macro
Tengo esta planilla en la cual deseo eliminar celdas en blanco de manera que me queden como la imagen que adjunto
1 respuesta
Respuesta de Dante Amor
2
Va la macro
Sub Eliminar_Celdas_Vacias()
'Por Dante Amor
Application.ScreenUpdating = False
u = Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To u
uc = Cells(i, Columns.Count).End(xlToLeft).Column
Range(Cells(i, "B"), Cells(i, uc)).SpecialCells(xlCellTypeConstants, 23).Copy
Range("B" & u + 1).PasteSpecial xlPasteValues
Range(Cells(i, "B"), Cells(i, uc)).ClearContents
Range(Cells(i, "B"), Cells(i, uc)).Value = Range(Cells(u + 1, "B"), Cells(u + 1, uc)).Value
Range(Cells(u + 1, "B"), Cells(u + 1, uc)).ClearContents
Next
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub