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.