Как объединить два столбца в один, чередуя их значения в 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 Sub3. Нажмите клавишу F5, и в появившемся диалоговом окне выберите два столбца, которые необходимо объединить.
4. Нажмите кнопку ОК, а затем во втором диалоговом окне укажите ячейку для размещения результата.
5. Нажмите кнопку ОК. Теперь два выбранных столбца объединены в один, и их значения чередуются.
Объединение двух столбцов в один со значениями поочередно с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, его утилита Transform Range выполнит эту задачу всего за три простых шага.
1. Выделите два или более столбцов, которые нужно объединить, и нажмите Kutools > Transform Range.
2. В диалоговом окне Transform Range установите флажок напротив параметра Range to single column и нажмите кнопку Ок.
3. В появившемся диалоговом окне выберите ячейку для размещения результата и нажмите кнопку ОК.
Теперь столбцы объединены в один, и их значения идут поочерёдно.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: Транспонирование диапазона с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек