Как объединить столбцы слева направо в один столбец в Excel?

Предположим, у вас есть несколько столбцов, и задача состоит в том, чтобы объединить их слева направо в один столбец, как показано на скриншоте ниже. Кроме как вручную перемещать столбцы по одному, существуют ли какие-либо способы решить эту задачу в Excel?

Объединение столбцов слева направо в один с помощью VBA

Объединение столбцов слева направо в один с помощью Kutools для Excel

Объединение столбцов слева направо в один с помощью VBA

В Excel нет встроенной функции, которая могла бы справиться с этой задачей, но код VBA может помочь вам.

1. Нажмите клавиши Alt +F11, затем в окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль, чтобы создать новый пустой модуль.

2. Скопируйте и вставьте следующий код в Модуль.

VBA: Объединение столбцов в один

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

3. Нажмите F5 , чтобы запустить код. Появится диалоговое окно, в котором вы сможете выбрать столбцы, которые хотите объединить в один.

4. Нажмите OK, выберите ячейку для размещения результата.

5. Нажмите OK для завершения. Теперь выбранные столбцы были объединены в один столбец.

Объединение столбцов слева направо в один с помощью Kutools для Excel

Если у вас установлен Kutools для Excel, вы можете использовать инструмент Преобразовать диапазон для выполнения этой задачи.

После установки Kutools для Excel выполните следующие действия:

1. Выберите столбцы, которые вы хотите объединить, нажмите Kutools > Диапазон > Преобразовать диапазон.

2. В Преобразовать диапазон диалоговом окне отметьте Диапазон в одну строку флажок, нажмите Ok.

3. В появившемся диалоговом окне выберите ячейку для размещения результата, нажмите OK.

Теперь столбцы были преобразованы в одну строку.

4. Выберите единственную строку, нажмите Ctrl + C , чтобы скопировать её, и выберите другую ячейку, в которой будет размещен стековый столбец. Щелкните правой кнопкой мыши и выберите Транспонировать (T) в контекстном меню.

Теперь единственная строка была транспонирована в стековый столбец.