Como posso transpor várias colunas para uma única coluna com ID repetido?

Question

Como posso fazer a ação abaixo? Da esquerda para a direita com Fórmula ou VBA?

    

Answer 1

Com dados como:

EmG1,digite:

=INDEX(A$2:A$9999,ROUNDUP(ROWS($1:1)/4,0))

EmH1digite:

=INDEX($B$1:$E$1,MOD(ROUNDUP(ROWS($1:1)/4,0)-1,4)+1)

EmI1digite:

=OFFSET($B$2,ROUNDUP(ROWS($1:1)/4,0)-1,MOD(ROWS($1:1)-1,4))

copieessascélulasparabaixo: