Como transformar várias linhas em uma unica célula?

Question

Tenho uma planilha com na coluna A os seguintes dados

RC 0040/2012
RC 0037/2012
RC 0038/2012
RC 0039/2012

Como fazer para que em uma célula tenhas todas essas linhas agrupadas, e com um separador, como um hífen, ficaria assim, na celular B1:

RC 0040/2012 - RC 0037/2012 - RC 0038/2012 - RC 0039/2012

Answer 1

Você pode usar uma Função Definida pelo Usuário

Alt+F11 para abrir o VBEditor

Inserir > Módulo

Cole o código abaixo no painel à direita

Function Concatena(r As Range)

    Dim rCell As Range

    For Each rCell In r

        Concatena = Concatena & rCell & " - "

    Next rCell

    Concatena = Left(Concatena, Len(Concatena) - 3)

End Function

Volta para o Excel e em B1

=Concatena(A1:A4)

Espero que ajude

M.

Answer 2

Boa tarde!! Como variar esse código para que eu consiga concatenar dessa forma em qualquer celular da planilha e não só da A1 a A4 ??

Obrigada!

Answer 3

mcbranco,

Funcionou perfeitamente. Fico agradecido.

Answer 4

Tenho uma planilha com na coluna A os seguintes dados

RC 0040/2012
RC 0037/2012
RC 0038/2012
RC 0039/2012

Como fazer para que em uma célula tenhas todas essas linhas agrupadas, e com um separador, como um hífen, ficaria assim, na celular B1:

RC 0040/2012 - RC 0037/2012 - RC 0038/2012 - RC 0039/2012

Uma forma automática com uma macro pro exemplo. pois com fórmulas de texto, eu consigo fazer.