Como trabalhar com a transformação de coluna de linha do excel?

Question

Eu tenho muito mais dados para trabalhar, mas o cenário é o seguinte:

Por favor me guie

    

Answer 1

Bem, 11 linhas em vez de 5 linhas, mas para mim é o suficiente;)

1. Coloque o cursor na coluna em que você deseja seus novos valores
2. Insira a macro em algum lugar no seu editor de VBA ( Alt + F11 )
3. Executa a macro ( F5 )
4. Responda o inputbux com o intervalo correto de sua tabela. No seu exemplo: "A2: C9"

Sub mergeColumns()

    strTable = InputBox("Please enter the range of your table" & vbNewLine & "Example: A1:C4", "Select your table")
    arrTable = Range(strTable)

    For Each cell In arrTable
        i = i + 1
        ActiveCell.Offset(i, 0) = cell
    Next

End Sub

Isto é apenas uma prova de conceito sem ajustes como ScreenUpdating, ErrorHandling ou declaração de variáveis.