Página 1 de 1
Código VBA para concatenar colunas da planilha Excel
Enviado: Qui Jul 25, 2013 2:37 pm
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.
Re: Código VBA para concatenar colunas da planilha Excel
Enviado: Qui Jul 25, 2013 3:01 pm
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.
Re: Código VBA para concatenar colunas da planilha Excel
Enviado: Qui Jul 25, 2013 3:06 pm
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.
Re: Código VBA para concatenar colunas da planilha Excel
Enviado: Qui Jul 25, 2013 5:32 pm
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.
Re: Código VBA para concatenar colunas da planilha Excel
Enviado: Qua Mar 31, 2021 10:58 pm
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