Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як об’єднати два стовпці в один із змінними значеннями в 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, з більш ніж 300 зручні функції, полегшує вам роботу. 

після установки 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-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Wendy Liu · 1 years ago
    It worked! Thank you!!