Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

Объедините два столбца в один с переменными значениями Kutools для 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 для Excel

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

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

После установки Kutools для Excel, пожалуйста, сделайте следующее:(Скачать Kutools для Excel сейчас!)

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

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

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

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


Просмотр вкладок и редактирование нескольких книг Excel / документов Word как Firefox, Chrome, Internet Исследуйте 10!

Возможно, вам знакомо просматривать несколько веб-страниц в Firefox / Chrome / IE и переключаться между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько книг Excel или документы Word в одном окне Excel или Word и легко переключаться между ними, нажимая их вкладки. Нажмите на бесплатную 45-дневную пробную версию Office Tab!

ot excel

Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.