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

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

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

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

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

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

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно. Нажмите Вставить > Модули для создания нового пустого модуля.

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 for Excel

Если у вас есть Kutools for Excel установлен в Excel, его Transform Range Утилита может решить эту задачу всего за 3 простых шага.

После установки Kutools for Excel, сделайте следующее:（Бесплатная загрузка Kutools for Excel прямо сейчас!)

1. Выберите столбцы (два или более), которые вы хотите объединить, нажмите Кутулс > Transform Range.

2. в Transform Range диалог, проверьте Range to single column и нажмите Ok.

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

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

  Диапазон транспонирования

---

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Больше информации... Скачать бесплатно... Покупка ... 

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...