Este fórum está sendo desativado

[EmersonMazulo]

Bom dia,

Meu nome é Emerson. Está é minha primeira postagem aqui no fórum. Estou precisando transpor dados por países. São cerca de 200 países. Preciso transpor os dados que estão em linha, em cada país, e colocá-los em uma única coluna. São várias linhas e quero colocar todos em uma única coluna. Gostaria de saber se há como criar um código para não precisar fazer esse trabalho de transpor as linhas em cada um dos quase 200 países. Coloquei um modelo em anexo.

[FelipeMGarcia]

Amigo,

Veja se o que fiz lhe ajuda, eu usei o Power Query para fazer o tratamento dos dados, caso queira agradecer, clique na mãozinha.

Abs

[EmersonMazulo]

Obrigado pela resposta. Mas seria possível manter os anos na ordem original? Seria possível ampliar para os outros países? Grato.

[osvaldomp]

Segue uma solução via macro. Veja se atende.

Instale uma cópia do 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).

Código: Selecionar todos

Sub TransporDados()
 Dim d As Long
  For d = 1 To Cells(Rows.Count, 4).End(3).Row Step 10
   Cells(d + 1, 3).Resize(9).Value = Application.Transpose(Cells(d, 4).Resize(, 9).Value)
  Next d
End Sub