Transpor linha para coluna

[tc_brito]

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.

[Visitante]

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

 

[tc_brito]

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..

[Visitante]

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