Página 1 de 1
Empilhar múltiplas colunas numa única coluna em outra aba
Enviado: 15 Dez 2017 às 13:18
por MauricioAlves31
Bom dia amigos.
Sendo objetivo:
Tenho uma planilha com 52 colunas numa ("Plan1")
eu preciso que sejam empilhadas numa única coluna, em outra ("Plan2")
no anexo que estou compartilhando eu fiz o código, mas não consigo que as colunas sejam empilhadas
em outra aba, alguém pode me ajudar por favor!
A planilha em anexo é apenas um exemplo, obrigado
Re: Empilhar múltiplas colunas numa única coluna em outra ab
Enviado: 15 Dez 2017 às 18:06
por osvaldomp
Experimente:
Código: Selecionar todosSub OrganizaDados()
Dim col As Long, LC As Long, LR As Long
LC = Cells(4, Columns.Count).End(1).Column
For col = 1 To LC
LR = Cells(Rows.Count, col).End(3).Row
Sheets("Plan2").Cells(Rows.Count, 8).End(3)(2).Resize(LR - 3).Value = _
Cells(4, col).Resize(LR - 3).Value
Next col
End Sub
Empilhar múltiplas colunas numa única coluna em outra aba
Enviado: 18 Dez 2017 às 15:54
por JCabral
Osvaldo está a dar-me o seguinte erro: Run-time error'1004': Application-defined or object-defined error, na linha - Sheets("Plan2").Cells(Rows.Count, 8).End(3)(2).Resize(LR - 3).Value = Cells(4, col).Resize(LR - 3).Value
Re: Empilhar múltiplas colunas numa única coluna em outra ab
Enviado: 18 Dez 2017 às 16:09
por osvaldomp
Olá, Cabral.
Se você postou no tópico correto e está tentando aproveitar o código que passei, então sugiro que você disponibilize uma amostra do seu arquivo Excel com o código instalado, coloque manualmente e explique o resultado desejado.
Empilhar múltiplas colunas numa única coluna em outra aba
Enviado: 18 Dez 2017 às 18:58
por FelipeMGarcia
Usa o Power query q fará isso facilmente