Este fórum está sendo desativado

[Angra]

Boa tarde
Precisava reorganizar esses números de uma forma diferente, sempre obedecendo a ordem de posição original dos números mas em formato diferente

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ReplicaDadosMudaDisposição()
 [T:V].Clear
 Range("L2:L" & Cells(Rows.Count, 12).End(3).Row).Copy [U2]
 Range("U2:U" & Cells(Rows.Count, 21).End(3).Row).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
 Range("K3:K" & Cells(Rows.Count, 11).End(3).Row).Copy Cells(Rows.Count, 21).End(3)(2, 0)
 Range("M3:M" & Cells(Rows.Count, 13).End(3).Row).Copy Cells(Rows.Count, 21).End(3)(2, 2)
 Range(Cells(Rows.Count, 21).End(3)(2, 0), Cells(Rows.Count, 22).End(3)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

[Angra]

Bom dia
oswaldomp, brigadu