Как объединить два столбца в один с чередующимися значениями в 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, с более чем 300 удобные функции, облегчающие вашу работу. |
После установки Kutools for Excel, сделайте следующее:(Бесплатная загрузка Kutools for Excel прямо сейчас!)
1. Выберите столбцы (два или более), которые вы хотите объединить, нажмите Кутулс > Transform Range.
2. в Transform Range диалог, проверьте Range to single column и нажмите Ok.
3. Выберите ячейку, чтобы поместить результат в всплывающее диалоговое окно. Нажмите OK.
Теперь столбцы объединены в один, а значения расположены в альтернативном порядке.
Диапазон транспонирования
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!