Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Código VBA para concatenar colunas da planilha Excel
-
- Colaborador
- Mensagens: 49
- Registrado em: Ter Nov 13, 2012 6:44 pm
Código VBA para concatenar colunas da planilha Excel
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.
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.
-
- Colaborador
- Mensagens: 14
- Registrado em: Ter Jul 02, 2013 4:25 pm
Re: Código VBA para concatenar colunas da planilha Excel
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.
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.
-
- Colaborador
- Mensagens: 49
- Registrado em: Ter Nov 13, 2012 6:44 pm
Re: Código VBA para concatenar colunas da planilha Excel
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.
-
- Colaborador
- Mensagens: 49
- Registrado em: Ter Nov 13, 2012 6:44 pm
Re: Código VBA para concatenar colunas da planilha Excel
Nei,
Vc tem algo no mesmo formato que faça o processo inverso, ou seja, quebre o texto da célula?
Abs!
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
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
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