Как работать с преобразованием строки-столбца в Excel?

Question

У меня есть еще много данных для работы, но сценарий, как показано на картинках ниже

Пожалуйста, ведите меня

Answer 1

Ну, 11 строк вместо 5, но для меня это достаточно близко;)

1. Поместите курсор в столбец, где вы хотите новые значения
2. Вставьте макрос где-нибудь в вашем редакторе VBA (Alt+F11)
3. Выполнить макрос (F5)
4. Ответьте на inputbux с правильным диапазоном вашей таблицы. В вашем примере: «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

Это только подтверждение концепции без твиков, таких как ScreenUpdating, ErrorHandling или объявление переменной.