Ir ao conteúdo
  • Cadastre-se
tc_brito

Transpor linha para coluna

Recommended Posts

Boa noite,

 

Procurei mas não encontrei nenhuma macro para transpor linhas para colunas, mas da seguinte maneira:

 

1) A quantidade de linha varia (na imagem em anexo possui somente 3 linhas, mas podem ser 10, 100...)

 

2) Copia a 1° linha e cola valores na coluna F

 

3) Copia a 2° linha e cola valores na coluna I

 

4) Copia a 3° linha e cola valores na coluna L

 

5) E assim sucessivamente... Copia a linha seguinte e cola na coluna anterior + 3

 

Agluém poderia me ajudar com essa macro? Segue em anexo uma imagem para maiores esclarecimentos.

post-766188-0-90238300-1431464010_thumb.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Experimente

Sub TransporDados() Dim k As Range, m As Long  For Each k In Range("A1", Cells(Rows.Count, 1).End(xlUp))   Cells(1, m + 6).Resize(4).Value = Application.Transpose(Cells(k, 1).Resize(, 4).Value)   m = m + 3  Next kEnd Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Funcionou perfeitamente Osvaldomp!

 

Eu tentei trocar o rande de "A1" para "F2:H7", mas não deu certo. Queria fazer a cópia conforme figura em anexo... Teria como?

Ele iria ignorar tudo que vem antes de F2..

post-766188-0-60959600-1431526765_thumb.

Compartilhar este post


Link para o post
Compartilhar em outros sites


Sub TransporDados()

 Dim k As Range, m As Long

  For Each k In Range("F2", Cells(Rows.Count, 6).End(xlUp))

   Cells(2, m + 11).Resize(3).Value = Application.Transpose(Cells(k, 6).Resize(, 3).Value)

   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

×