Excel Copiar e Colar com Criterios

[Fuedba]

Prezados, boa tarde.

 

Tenho uma coluna com varias informações de casos ate o item caso 100 e cada caso com 5 linhas: 

Caso 1
1
2
3
4
5
Caso 2
6
7
8
9
10
Caso 3
11
12
13
14
15
....

 

Gostaria de uma formula para colocar esses casos em colunas de forma raída e sem ficar selecionado caso por caso:

 

Caso 1    Caso 2    Caso 3
1                  6            11
2                  7           12
3                  8           13
4                  9            14
5                 10            15

 

Existe alguma solução no excel para isso?

 

Obrigado
 

 

[Midori]

Isso pode ser feito com macro

[Fuedba]

Midori, e qual a macro que pode ser utilizada teria como me passar um exemplo?

[Midori]

@Fuedba Considerei que a tabela dos casos começa na célula A1. A macro vai tabular os dados no formato a partir de C1

 

Sub Macro()
    Dim Celula  As Range
    Dim Col     As Integer
    
    Set Celula = [A1]
    
    While Celula <> ""
        Celula.Resize(6).Copy
        Call [C1].Offset(0, Col).PasteSpecial(xlPasteValues)
        Col = Col + 1
        Set Celula = Celula.Offset(6)
    Wend
    Application.CutCopyMode = False
    [A1].Select
End Sub

 

[Fuedba]

Bom dia, a formula funcionou perfeitamente, mas existe algumas coisas que preciso ver se tem como realizar:

 

1) teria como manter a formatação das células copiadas, igualmente na ordem que elas foram executadas?

 

 

[Midori]

Usei PasteSpecial com Values para o caso de ter fórmulas.

 

Mas se não tem pode remover essa linha e passar o range para o procedimento Copy assim,

 

Call Celula.Resize(6).Copy([C1].Offset(0, Col))

 

[Fuedba]

Otimo, muito obrigado