none
VBA Texto para Coluna e Linha RRS feed

  • Pergunta

  • 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á!!!

    terça-feira, 27 de outubro de 2015 22:09

Respostas

  • Olá Robson!

    Nem é preciso recorrer ao VBA par isso. 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!


    Rafael Kamimura - http://excelmaniacos.com

    quarta-feira, 28 de outubro de 2015 12:03