Как объединить два столбца в один с чередующимися значениями в 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. Нажмите OK, во втором диалоговом окне выберите ячейку для размещения результата.
5. Нажмите OK. Теперь выбранные два столбца были объединены в один с чередующимися значениями.
Объединение двух столбцов в один с чередующимися значениями с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, его утилита Преобразовать диапазон может выполнить эту задачу всего за три простых шага.
1. Выберите столбцы (два или более), которые вы хотите объединить, нажмите Kutools > Преобразовать диапазон.
2. В Преобразовать диапазон диалоговом окне отметьте Диапазон в одну колонку опцию и нажмите Ok.
3. Выберите ячейку для размещения результата в появившемся диалоговом окне. Нажмите OK.
Теперь столбцы были объединены в один, и значения чередуются между двумя.
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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек