Как объединить два столбца в один с чередующимися значениями в Excel?

Вот два столбца на листе. Задача состоит в том, чтобы объединить эти два столбца в один, чередуя значения, как показано на скриншоте ниже. Как можно быстро выполнить эту задачу, не переставляя их по одному?

Объединение двух столбцов в один с чередующимися значениями с помощью кода VBA

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

Объединение двух столбцов в один с чередующимися значениями с помощью кода VBA

Чтобы объединить два столбца в один с чередующимися значениями, в Excel нет встроенной функции, кроме кода VBA.

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

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

VBA: Объединение двух столбцов в один с чередованием значений

Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two 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 xFNum = 1 To xSRg.Count
        Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
        xDRg.Value = xSRg.Item(xFNum).Value
        xI = xI + 1
    Next xFNum
Application.ScreenUpdating = True
End Sub

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

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

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

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

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

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

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

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

Теперь столбцы были объединены в один, и значения чередуются между двумя.

Демонстрация: Транспонирование диапазона с помощью Kutools для Excel