Página 1 de 1

Transpor dados por países

Enviado: 17 Set 2019 às 11:35
por 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.

Re: Transpor dados por países

Enviado: 17 Set 2019 às 12:48
por 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

Transpor dados por países

Enviado: 18 Set 2019 às 10:09
por EmersonMazulo
Obrigado pela resposta. Mas seria possível manter os anos na ordem original? Seria possível ampliar para os outros países? Grato.

Re: Transpor dados por países

Enviado: 18 Set 2019 às 10:48
por 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