Este fórum está sendo desativado

[kakamotasjc]

Bom dia!

Estou precisando de ajuda para inserir quebra de linha (ALT+ENTER) em várias linhas do Excel, manualmente fica inviável.

Exemplo: Tenho várias linas com as seguintes informações:

Linha 1 - Nome: Maria Francisca Idade: 30 anos Sexo: feminino Telefone: 1239562145

Linha 2 - Nome: Eduardo Alves Idade: 45  Sexo: Masculino Telefone: 012981556841

Preciso que fique da seguinte forma:

Linha 1 - Nome: Maria Francisca

                Idade: 30 anos

                Sexo: feminino

               Telefone: 1239562145

Linha 2 - Nome: Eduardo Alves 

                Idade: 45 

                Sexo: Masculino

               Telefone: 012981556841



Tentei da seguinte forma:

Range("M2").Select
    ActiveCell.FormulaR1C1 = _
        "Nome: " & Chr(10) & "Idade: " & Chr(10) & "SExo:  " & Chr(10) & "telefone:  " 
    Range("M2").Select

o código é inviável, pois é executado somente em uma linha e os dados após o título são apagados, retornando:

Linha 1 - Nome: 

                Idade: 

                Sexo: 

               Telefone: 



Podem me ajudar? 

[kakamotasjc]

Boa tarde!



Achei uma forma mais simples através de formula;

=CONCATENAR($A$1;": ";A2;" ";CARACT(10);$B$1;": ";B2;" ";CARACT(10);$C$1;": ";C2;" ";CARACT(10);$D$1;": ";D2;" ";CARACT(10);$E$1;": ";E2;" ";CARACT(10);)