Ir ao conteúdo
  • Cadastre-se
Phadafi

Excel - Transpor Multiplas Células

Recommended Posts

Olá,

 

Precisava de ajuda para facilitar a fomação de uma tabela, conforme tabela em anexo.

 

Tenho as informações na forma da esquerda e precisa delas no formato da direita. Precisava disso pra 100+ linhas e queria saber se existe um método ou macro fácil para facilitar.

 

Desde já obrigado.

 

 

 

Exemplo.xlsx

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá. Se quiser experimentar esta solução via 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 LinhasParaColunas()
 Dim LR As Long, k As Long, m As Long, i As Long
 LR = Cells(Rows.Count, 2).End(xlUp).Row
 Columns("G:H") = "": [G2:H2] = [{"Major", "Sub"}]
 m = 3
 For k = 3 To LR
  Cells(m, 7) = Cells(k, 2)
   For i = 3 To 5
    If Cells(k, i) <> "" Then
     Cells(m + 1, 8) = Cells(k, i): m = m + 1
    End If
   Next i
  m = m + 1
 Next k
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×