Vba: como converter texto em colunas

Você pode usar o método Range.TextToColumns no VBA para converter uma célula de texto em colunas.

Os exemplos a seguir mostram como usar esse método na prática em diferentes cenários.

Exemplo 1: Converter texto em colunas (espaço como delimitador)

Suponha que temos a seguinte lista de nomes no intervalo A1:A9 no Excel:

Podemos criar a seguinte macro para converter o texto de cada célula em colunas separadas, usando espaços como delimitadores:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que o texto em cada célula foi convertido em colunas separadas.

Nota : O argumento ConsecutiveDelimiter:=True diz ao VBA para considerar delimitadores consecutivos juntos como um único delimitador.

Exemplo 2: Converter texto em colunas (vírgula como delimitador)

Suponha que temos a seguinte lista de nomes no intervalo A1:A9 separados por vírgulas:

Podemos criar a seguinte macro para converter o texto de cada célula em colunas separadas, usando vírgulas como delimitadores:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Comma:=True
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que o texto em cada célula foi convertido em colunas separadas.

Exemplo 3: Converter texto em colunas (com texto entre aspas duplas)

Suponha que temos a seguinte lista de nomes no intervalo A1:A9 separados por espaços e incluindo aspas duplas:

Podemos criar a seguinte macro para converter o texto de cada célula em colunas separadas:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que o texto em cada célula foi convertido em colunas separadas.

Observe que usamos o argumento TextQualifier:=xlDoubleQuote para informar ao VBA que o texto estava entre aspas duplas.

Nota : Você pode encontrar a documentação completa do método TextToColumns em VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns usando VBA:

VBA: Como contar ocorrências de caracteres em uma string
VBA: como verificar se uma string contém outra string
VBA: Como contar células com texto específico