Note: The other languages of the website are Google-translated. Back to English

Як об’єднати два стовпці в один із змінними значеннями в Excel?

Ось два стовпці на аркуші, що полягає в тому, щоб об’єднати ці два стовпці в один стовпець із альтернативними значеннями, як показано нижче. Як ви можете швидко впоратися з роботою, не змінюючи їх по черзі?
doc об’єднує два стовпці в один із змінним значенням 1

Об’єднайте два стовпці в один із змінними значеннями за кодом VBA

Об’єднайте два стовпці в один із змінними значеннями за допомогою Kutools для Excelгарна ідея3


Об’єднайте два стовпці в один із змінними значеннями за кодом VBA

Щоб об'єднати два стовпці в один із змінними значеннями, в Excel немає вбудованої функції, крім коду VBA.

1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікно. Клацніть Insert > Модулі щоб створити новий порожній модуль.

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 для Excel встановлений в Excel, його Transform Range Утиліта може вирішити цю роботу лише за 3 простих кроки.

після установки Kutools для Excel, будь-ласка, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для Excel зараз!)

1. Виберіть стовпці (два або більше), які потрібно об’єднати, натисніть Кутулс > Transform Range.
doc об’єднує два стовпці в один із змінним значенням 4

2 В Transform Range діалогове вікно, перевірте Range to single column і натисніть Ok.
doc об’єднує два стовпці в один із змінним значенням 5

3. Виділіть комірку, щоб розмістити результат у діалоговому вікні. Клацніть OK.
doc об’єднує два стовпці в один із змінним значенням 6

Тепер стовпці об’єднані в одне, і значення мають альтернативний порядок.
doc об’єднує два стовпці в один із змінним значенням 7


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (1)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Це спрацювало! Дякую!!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL