colocar dados de várias colunas um abaixo do outro após termino da primeira coluna excel

[diaslp]

Boa noite

Meu problema é o seguinte:

Tenho os dados em sete colunas

A, B, C, D, E, F, G

 

Preciso que esses dados fiquem agrupados em outra planilha, então fiz o seguinte:

=SE(Plan2!A2>0;Plan2!A2;SE(Plan2!B2>0;Plan2!B2;SE(Plan2!C2>0;Plan2!C2;SE(Plan2!D2>0;Plan2!D2;SE(Plan2!E2>0;Plan2!E2;SE(Plan2!F2>0;Plan2!F2;SE(Plan2!G2>0;Plan2!G2;"")))))))

 

Acontece que tenho dados nas colunas A2 E B2, e aparece somente os dados da linha A2, mas preciso que apareça os dados da B2 depois que terminar a inserção de todos os dados que estão na coluna A2; abaixo da coluna A.

 

Pode acontecer de ter dados em B7, C7, D7 ao mesmo tempo e eu preciso que eles também apareçam, conforme os critérios acima um abaixo do outro.

A     B     C     D     E     F     G    

1

        2     

               3      4

1             3      4            6

               3                            7

1                            5

 

O RESULTADO QUE EU QUERO É : Primeiro todos os dados da coluna A, depois todos os dados da Coluna B e assim sucessivamente

1

1

1          

2

3

3

3

4

4

5

6

7

 

Alguém tem alguma ideia?

 

Estou anexando a planilha de exepmlo para melhor visualização do problema.

 

Obrigado.

 

teste.xlsx

teste.xlsx

[Visitante]

Olá, Dias.

Se quiser experimentar esta solução que utiliza macro instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).
 

Sub TodasEmUma() Dim k As Long   Application.ScreenUpdating = False   Sheets("formula").[A:A] = ""   For k = 1 To 7     Range(Cells(2, k), Cells(Rows.Count, k).End(xlUp)).Copy     Sheets("formula").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial   Next k    Sheets("formula").Range("A1", Sheets("formula").Range("A" & Rows.Count). _     End(xlUp)).SpecialCells(xlCellTypeBlanks).Delete   Application.ScreenUpdating = TrueEnd Sub

obs. me parece que no arquivo disponibilizado você colocou um resultado esperado com base em um critério em desacordo com o critério adotado no exemplo que você colocou no post: faltam 3 elementos no resultado;  o código acima considera o critério do post e não o critério que você adotou no arquivo.

[diaslp]

Muito Obrigado,

ajudou muito mesmo.

.