Como colar cada linha de uma string em uma celula?

2024 - VBA & Macros

Post Recente por gtsalikis 10 anos atrás

2 Posts

2 Usuários

0 Reactions

856 Visualizações

RSS

marcandal

(@marcandal)

Posts: 3

New Member

Topic starter

Preciso colar cada linha de uma celula em uma celula diferente, é possivel?

Por Exemplo:

A celula A1 possui 4 nomes, um em cada linha da celula... Como faço para colocar cada nome em uma celula diferente quando eu clicar no botao "Copiar"?
Por Exemplo "Joao Silva" ir para a celula B1, "Thiago" para a celula B2, "Pedro Pereira Santos" pra celula B3 e "Henrique" para a celula B4

Postado : 04/04/2015 8:37 am

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

O código a seguir faz o que vc quer. No modeo em anexo vc pode ver funcionando:

Sub separar_por_linha_GT()

Dim linhas() As String
Dim i As Long

linhas() = Split(Range("A1"), Chr(10))

For i = LBound(linhas()) To UBound(linhas())
    Cells(i + 1, "B").Value = linhas(i)
Next i

End Sub

Se deu certo, amigo, lembre de agradecer, clicando na mãozinha.

Separar_por_Linha_GT.zip

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 05/04/2015 7:33 am