posta um modelo, de repente, da pra fazer com fórmulas. Se não, com VBA é praticam ente certeza.

Olá segue o teste um como pode ver :

no plan1 é o normal como eu tranferi pro excell usando os 5 primeiros só
e no plan2 é para como deve ficar, só fiz o primeiro só para entender.

Ficou mais claro? tem um programa que converte sem eu precisar fazendo um por um ??

Obrigado,

Att.

Seguindo o modelo que vc enviou, coloque esta fórmula em A2 da Plan2:

=SE(DESLOC(Plan1!$B$8;(LINS($2:2)-1)*19+(COL()-1);0)="";"";DESLOC(Plan1!$B$8;(LINS($2:2)-1)*19+(COL()-1);0))

Depois arraste para baixo e para o lado.

Funcionou o código mas vejo que algumas empresa tem menos linhas que o código usa então não funciona direito, vou ver se consigo arrumar primeiro antes de utilizar o código

Obrigado

Funcionou o código mas vejo que algumas empresa tem menos linhas que o código usa então não funciona direito, vou ver se consigo arrumar primeiro antes de utilizar o código

Obrigado

Nesse caso, tente assim:

=SEERRO(ÍNDICE(DESLOC(Plan1!$B$8;(LINS($2:2)-1)*19;0;20);CORRESP(A$1;DESLOC(Plan1!$A$8;(LINS($2:2)-1)*19;0;20);0));"")

E, por favor, como a resposta ajudou, clique na mãozinha.