Este fórum está sendo desativado

[EmersonSwistalski]

Bom dia!

Tenho a seguinte situação:
Preciso de uma macro para converter uma célula em várias, criei uma planilha de exemplo apenas para demonstração.
Eu gostaria que os valores da célula "E7" fossem transportados para E8, E9, [...]
Já tentei várias coisas, mas sem sucesso. Nesse exemplo é apenas uma situação, na minha planilha real tenho vários casos que preciso "converter"

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub teste()
 Application.DisplayAlerts = False
 [E7].Justify
 Application.DisplayAlerts = True
End Sub