Перейти к основному содержанию

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

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

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

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


Объединить два столбца в один с чередующимися значениями по коду 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 и выберите два столбца, которые вы хотите объединить во всплывающем диалоговом окне.
doc объединить два столбца в один с переменным значением 2

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

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


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

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

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

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

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

2. в Transform Range диалог, проверьте Range to single column и нажмите Ok.
doc объединить два столбца в один с переменным значением 5

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

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

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

Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

вкладка kte 201905


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It worked! Thank you!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations