Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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 »

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 »

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 »

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.


haroldo1
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Fev 25, 2021 9:17 pm

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

Mensagem por haroldo1 »

Prezados saudações, preciso fazer isto em seis abas, sendo que preciso o resultado na coluna A de cada uma delas, juntando as colunas B e H com espaço entre os textos, utilizei o &" "&, as colunas no caso do código seriam 2 e 8, só não consegui ver no código a referencia a linha de inicio, que no meu caso é a 3.
O que você esta chamando de ValoresConcatenados é o nome da aba?

Sub concatenar()
L = 1
Do
If Sheets("SEM_0_LOCAIS").Cells(L, 1).Value <> "" Then

ValoresConcatenados = Sheets("SEM_0_LOCAIS").Cells(L, 2).Value & " " & Sheets("SEM_0_LOCAIS").Cells(L, 8).Value
Sheets("SEM_0_LOCAIS").Cells(L, 1).Value = ValoresConcatenados
L = L + 1
Else
Parar = 1
End If
Loop Until Parar = 1
End Sub


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