... alguém tem uma macro para deletar as células que estiverem em branco e movimenta as demais para a direita até o fim da seleção?
Tenho uma aqui que, por acaso, me parece que serve para o seu caso.
Sub InsereVazias()
Dim c As Long, a As Long, k As Long
a = [A1].CurrentRegion.Columns.Count
For c = 1 To Cells(Rows.Count, 1).End(3).Row
On Error Resume Next
k = 0: k = Range(Cells(c, 1), Cells(c, a)).SpecialCells(xlBlanks).Cells.Count
Cells(c, 1).Resize(, k).Insert Shift:=xlToRight
Next c
End Sub
Postado : 05/04/2017 5:40 pm