VBA Texto para Coluna e Linha

Question

Boa noite Pessoal.

Tenho uma Tabela que vai receber no campo ativo um texto separado por ";" e por "/" e a minha divida é a seguinte:

Como separar a texto em colunas usando o ";" e quando achar o "/" ir para proxima linha e preencher as colunas e assim por diante?

exemplo:

	A
1	Robson;Ollevruc;32/Gabriela;Antonieta;22/Anderson;Adolf;38/Jackson;Amarildo;66

A tabela ficaria assim:

	A	B	C
1	Robson	Ollevruc	32
2	Gabriela	Antonieta	22
3	Anderson	Adolf	38
4	Jackson	Amarildo	66

Separar em colunas eu encontrei a função a seguir:

Sub ExampleSplit1()

    Selection.TextToColumns _

      Destination:=ActiveCell, _

      DataType:=xlDelimited, _

      TextQualifier:=xlDoubleQuote, _

      ConsecutiveDelimiter:=False, _

      Tab:=True, _

      Semicolon:=False, _

      Comma:=False, _

      Space:=False, _

      Other:=True, _

      OtherChar:=";"

End Sub

Porem não sei como mudar de linha.

Agradeço desde já!!!

Answer 1

Olá Robson!

Minha sugestão é você aplicar duas vezes o recurso "Texto para colunas" disponível na guia "Dados".

A ordem seria a seguinte:

1º) Transforme os dados em colunas usando o caminho "Delimitado" -> "Outros: preenchido com "/"

2º) Copie os dados da linha e cole especial transpondo, em outra planilha

3º) Transforme os dados em colunas usando o caminho "Delimitado" -> "Outros: preenchido com ";"

Deu para entender?

Qualquer dúvida pergunte.

Abs!

Answer 2

Agradeço a resposta! ajudou porem consegui realizar 2 macros q realizam o trabalho.

Answer 3

Olá RobsonCurvello, tudo bem? 

Bem-vindo a Comunidade da Microsoft.

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e profissionais em TI.

:: MSDN ::

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Caso essa informação tenha sido útil, marque-a como resposta.

Até breve!