ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Código VBA para concatenar colunas da planilha Excel

Dúvidas gerais sobre Excel
Marco_Bertolani
Colaborador
Colaborador
Mensagens: 49
Registrado em: Ter Nov 13, 2012 6:44 pm

Código VBA para concatenar colunas da planilha Excel

Mensagem por Marco_Bertolani » Qui Jul 25, 2013 2:37 pm

Olá,

Tenho uma planilha Excel com 5000 linhas e preciso de um código VBA para concatenar 5 colunas (A;B;J;AB;AC). Alguém pode me ajudar?

Abs.

Marco.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Nei Stolberg
Colaborador
Colaborador
Mensagens: 14
Registrado em: Ter Jul 02, 2013 4:25 pm

Re: Código VBA para concatenar colunas da planilha Excel

Mensagem por Nei Stolberg » Qui Jul 25, 2013 3:01 pm

Amigo,

Da pra usar quase o mesmo código que te passei pra tirar os zeros:

Sub Concatenar()
L = 1
Do
If Sheets("Plan1").Cells(L, 1).Value <> "" Then
ValoresConcatenados = Sheets("Plan1").Cells(L, 1).Value & Sheets("Plan1").Cells(L, 2).Value & _
Sheets("Plan1").Cells(L, 10).Value & Sheets("Plan1").Cells(L, 28).Value & Sheets("Plan1").Cells(L, 29).Value
Sheets("Plan1").Cells(L, X).Value = ValoresConcatenados
L = L + 1
Else
Parar = 1
End If
Loop Until Parar = 1

End Sub

Na linha em vermelho, substitua o "X" pelo número da coluna onde vc quer que os valores concatenados fiquem.

Valeu..
Nei.



Marco_Bertolani
Colaborador
Colaborador
Mensagens: 49
Registrado em: Ter Nov 13, 2012 6:44 pm

Re: Código VBA para concatenar colunas da planilha Excel

Mensagem por Marco_Bertolani » Qui Jul 25, 2013 3:06 pm

Perfeito!!! Valeu!!!
Nei Stolberg escreveu:Amigo,

Da pra usar quase o mesmo código que te passei pra tirar os zeros:

Sub Concatenar()
L = 1
Do
If Sheets("Plan1").Cells(L, 1).Value <> "" Then
ValoresConcatenados = Sheets("Plan1").Cells(L, 1).Value & Sheets("Plan1").Cells(L, 2).Value & _
Sheets("Plan1").Cells(L, 10).Value & Sheets("Plan1").Cells(L, 28).Value & Sheets("Plan1").Cells(L, 29).Value
Sheets("Plan1").Cells(L, X).Value = ValoresConcatenados
L = L + 1
Else
Parar = 1
End If
Loop Until Parar = 1

End Sub

Na linha em vermelho, substitua o "X" pelo número da coluna onde vc quer que os valores concatenados fiquem.

Valeu..
Nei.



Marco_Bertolani
Colaborador
Colaborador
Mensagens: 49
Registrado em: Ter Nov 13, 2012 6:44 pm

Re: Código VBA para concatenar colunas da planilha Excel

Mensagem por Marco_Bertolani » Qui Jul 25, 2013 5:32 pm

Nei,

Vc tem algo no mesmo formato que faça o processo inverso, ou seja, quebre o texto da célula?

Abs!
Nei Stolberg escreveu:Amigo,

Da pra usar quase o mesmo código que te passei pra tirar os zeros:

Sub Concatenar()
L = 1
Do
If Sheets("Plan1").Cells(L, 1).Value <> "" Then
ValoresConcatenados = Sheets("Plan1").Cells(L, 1).Value & Sheets("Plan1").Cells(L, 2).Value & _
Sheets("Plan1").Cells(L, 10).Value & Sheets("Plan1").Cells(L, 28).Value & Sheets("Plan1").Cells(L, 29).Value
Sheets("Plan1").Cells(L, X).Value = ValoresConcatenados
L = L + 1
Else
Parar = 1
End If
Loop Until Parar = 1

End Sub

Na linha em vermelho, substitua o "X" pelo número da coluna onde vc quer que os valores concatenados fiquem.

Valeu..
Nei.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder