Este fórum está sendo desativado

[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

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub 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

[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

[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.

[FelipeMGarcia]

Usa o Power query q fará isso facilmente