Notifications
Clear all

Como Adicionar ; ao final de cada conteúdo da célular?

5 Posts
1 Usuários
0 Reactions
583 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Galera, na coluna A eu tenho mais de mil e-mails e estou precisando acrescentar ao final de cada e-mail o ponto e vírgula, como faço isso de maneira q não seja manual porque daria trabalho né xD

Exemplo:

A
[email protected]
[email protected]
[email protected]

deve ficar:

A
[email protected];
[email protected];
[email protected];

Grato desde já.

 
Postado : 10/03/2012 12:04 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Krbastos

Copie e cole esta fórmula na célula "B1" e arraste para as demais linhas: ( Para evitar o trabalho de arrastar a fórmula para as demais linhas, basta clicar duas vezes na cruzinha que fica no canto inferior direito da célula que vc colou a fórmula).

=A1&";" ou =CONCATENAR(A1;";")

Dê retorno.

Abraço.

 
Postado : 10/03/2012 12:59 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

krbastos, se for por VBA, pode usar isso:

Sub Inserir()
Dim i As Integer

    For i = 1 To 100
    Range("A" & i) = Range("A" & i) & ";"
    Next i

End Sub

senão terá de usar uma coluna auxiliar para depois copiar/colar valores (especiais)

=A1&";"

Qualquer coisa da o grito

 
Postado : 10/03/2012 1:02 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito obrigado Patropi, deu certinho. Abraços.

Obrigado a você també, Bernardo. Grato pela atenção.
Abraços a todos.

 
Postado : 10/03/2012 1:19 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Marque seu tópico como resolvido!!

Vá na parte superior do lado direito da resposta de quem te ajudou e marque!

At++++ ;)

 
Postado : 11/03/2012 2:51 pm