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.
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.
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
-
Marco_Bertolani
- Colaborador
- Mensagens: 49
- Registrado em: Ter Nov 13, 2012 6:44 pm
-
Nei Stolberg
- 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.
-
Marco_Bertolani
- 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.
-
Marco_Bertolani
- 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.
