Como colocar várias colunas em uma - VBA

Question

Boa noite, pessoal.

Eu tenho uma planilha com mais de 100 colunas, e mais de 1000 linhas.

A minha ideia seria juntar todas essas colunas e empilhar em uma coluna só.

Vocês teriam algum código de macro que pudesse me ajudar?

Answer 1

Entendo, eu precisava enviar a planilha para você olhar.

Poderia ser por via e-mail? Lá, eu consigo enviar a planilha no anexo.

Att,

Answer 2

Poderia me informar como deseja, pois eu evito abrir link fora da Comunidade ou Microsoft.

Obrigado

Answer 3

Maison, boa tarde.

Você consegue me ajudar nessa planilha?

Answer 4

Olá, tudo bem? Seja bem-vindo(a) à Comunidade Microsoft!

 

É um prazer ajudá-lo(a) nesta questão!

 

Claro, você pode usar o seguinte código de macro no Microsoft Excel para consolidar todas as colunas em uma só coluna:

Sub MergeColumns()

Dim lastRow As Long, i As Long, j As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lastRow

For j = 2 To 100

If Cells(i, j) <> "" Then

Cells(i, 1).Value = Cells(i, 1).Value & " " & Cells(i, j)

End If

Next j

Next i

End Sub

Esse código irá concatenar todos os valores nas colunas 2 a 100 na primeira coluna (coluna A) para cada linha. Note que você pode ajustar o número de colunas (100) para atender às suas necessidades.

 

Se minha resposta lhe ajudou, não esqueça de marcar em Sim a Resposta foi útil.

Qualquer dúvida ou necessitando de mais informações, estou à disposição. Obrigado

Maison, boa noite.

Primeiramente, muito obrigado pela ajuda.

Eu vou enviar a planilha pra você olhar, é porque a minha necessidade era que todas as colunas ficassem "empilhadas em uma coluna só".

Estou enviando a planilha em anexo, nela você vai observar nas colunas **** de amarelo é o que de fato a macro deveria fazer.

Acha que consegue me ajudar com isso?

Segue o link para baixar a planilha exemplo: https://we.tl/t-PKZOzSbua1

Att,

Answer 5

Olá, tudo bem? Seja bem-vindo(a) à Comunidade Microsoft!

É um prazer ajudá-lo(a) nesta questão!

Claro, você pode usar o seguinte código de macro no Microsoft Excel para consolidar todas as colunas em uma só coluna:

Sub MergeColumns()

Dim lastRow As Long, i As Long, j As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lastRow

For j = 2 To 100

If Cells(i, j) <> "" Then

Cells(i, 1).Value = Cells(i, 1).Value & " " & Cells(i, j)

End If

Next j

Next i

End Sub

Esse código irá concatenar todos os valores nas colunas 2 a 100 na primeira coluna (coluna A) para cada linha. Note que você pode ajustar o número de colunas (100) para atender às suas necessidades.

Se minha resposta lhe ajudou, não esqueça de marcar em Sim a Resposta foi útil.

Qualquer dúvida ou necessitando de mais informações, estou à disposição. Obrigado