Como dividir o texto com um delimitador de vírgula em uma célula alinhada?

Question

Eu preciso dividir um endereço em linhas para postagem. Na aba 1, tenho os detalhes dos meus membros Na Tab 2, tenho minha fatura enviada por e-mail.

Na guia 2, executo uma função VLOOKUP para extrair os detalhes do membro da guia 1

PO Box 211, Alberton, 1450

Agora o problema começa ...

O "Texto para colunas" normal não pode ser usado devido à barra de fórmulas que mostra a fórmula VLOOKUP em vez do endereço real.

=IF(F7=""," ",VLOOKUP(F7,'Permanente en Jaarlede'!B4:Y2063,24,FALSE))

Como altero meu endereço de:

PO Box 211, Alberton, 1450 para:

PO Box 211
Alberton
1450

quando o texto é o resultado de uma fórmula, não apenas um valor simples?

    

Answer 1

Eu não sei como fazer isso com o Excel Formulas, mas esse VBa fará isso.

Em primeiro lugar, faça um backup do arquivo antes de executá-lo.

Ele pegará o valor de A1 e dividirá em várias linhas

Public Function Addy(cellToLookup As String)

Dim result As String
result = Range(cellToLookup).Value

Dim splitty() As String
splitty = Split(result, ",")

Dim i As Integer
i = 0

For i = 0 To UBound(splitty)

Range("B" & i + 1).Value = splitty(i)   'update for start row. EG, change B to col, and the +1 to +15 (if you want it to start on row 15)

Next i

End Function

Como eu adiciono o VBA no MS Office?

O que não é uma forma clara de sua pergunta, quantas linhas você precisará e se você precisa executar isso várias vezes, etc., mas isso pode ajudá-lo. Talvez seja necessário executar a pesquisa com o VBa também, o que deve ser bastante fácil.

    

Answer 2

Você pode substituir o ", " por "CHAR(10)" .

Certifique-se de que a quebra automática de linha (Wrap Text) está ativada para a célula com várias linhas:

Se o A1 parecer com PO Box 211, Alberton, 1450 , na sua nova célula, use:

=SUBSTITUTE(A1,", ",CHAR(10)) .

A nova célula ficaria assim:

PO Box 211
Alberton
1450

referência: substitute-a-comma-with -um-break-link-em-uma-célula