Перейти до основного матеріалу
 

Як об’єднати кілька рядків в один на основі дублікатів у Excel?

Автор: Сяоян Остання зміна: 2024-08-07

Можливо, у вас є наступні дані знімка екрана, у стовпці "Назва товару" є кілька повторюваних елементів, і тепер вам потрібно видалити повторювані записи у стовпці A, але об'єднати відповідні значення у стовпці B, див. Скріншоти:

знімок екрана, на якому показано вихідні дані скріншот стрілки знімок екрана, на якому показано об’єднані рядки

Чи є у вас кілька ефективних способів вирішення цього завдання?

Поєднайте кілька повторюваних рядків в один із кодом VBA

Об’єднайте кілька повторюваних рядків в один Kutools для Excel

Об’єднайте кілька повторюваних рядків і підсумуйте/усередніть значення за допомогою Kutools для Excel


Поєднайте кілька повторюваних рядків в один із кодом VBA

Наступний код VBA може допомогти вам поєднати повторювані рядки на основі значення стовпця A, а наступний код застосовується лише до двох стовпців. Отже, якщо у вас є дані з двох стовпців, цей код зробить вам користь.

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: об'єднати кілька рядків в один

Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. Потім натисніть F5 клавіші, і з'явиться підказка з нагадуванням про вибір діапазону, який потрібно об'єднати. Дивіться знімок екрана:

знімок екрана вибору діапазону даних після виконання коду

4. А потім клацніть OK, значення у стовпці B об’єднано в один запис та розділено пробілами.

скріншот із результатом

Примітки:

1. Цей код може знищити вихідні дані, коли ви використовуєте його, спершу скопіюйте дані.

2. Цей код застосовується лише до двох стовпців, якщо у вас більше двох стовпців, цей код буде поєднувати лише перші два стовпці та видаляти дані інших стовпців. Використовуючи цей код, ви повинні бути обережними.


Об’єднайте кілька повторюваних рядків в один Kutools для Excel

Тепер, коли вищезазначений код має деякі обмеження та ризики, чи є зручний та безпечний спосіб закінчити цю роботу? С Kutools для ExcelАвтора Розширені комбіновані ряди Утиліта, ви можете швидко видалити кілька повторюваних рядків у стовпцях, за якими ви базуєтесь, та об'єднати або зробити деякі обчислення для інших записів у відповідні комірки.

Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Отримати зараз.

Після встановлення Kutools для Excel виконайте наступне:

1. Виберіть дані про діапазон, які потрібно об’єднати дублікатами.

скріншот вибору вихідних даних

2. Потім натисніть Кутулс > Злиття та розділення > Розширені комбіновані ряди.

3, в Розширені комбіновані ряди діалоговому вікні виберіть ім'я стовпця як ключові стовпці, на основі яких ви хочете об'єднати значення, а потім натисніть Ключові стовпці.

знімок екрана вибору ключового стовпця в діалоговому вікні «Об’єднати рядки на основі стовпця».

4. Потім продовжуйте клацати стовпець, в якому потрібно об’єднати їх значення в один запис, а потім клацніть Комбіновані операції І вибирай Поєднувати лише з сепаратором, і виберіть один роздільник, який потрібно, щоб відокремити комбіновані значення з правого списку. Дивіться знімок екрана:

знімок екрана вибору роздільника об’єднання в діалоговому вікні «Об’єднати рядки на основі стовпців»

5. Після закінчення налаштувань натисніть OK, і ваші дані будуть об’єднані на основі ключових стовпців та розділені розділювачами.

знімок екрана комбінованого результату

Примітка: Якщо вам не потрібно встановлювати операції для решти стовпців, просто тримайте стан за замовчуванням.


Об’єднайте кілька повторюваних рядків і підсумуйте/усередніть значення за допомогою Kutools для Excel

За допомогою цього багатофункціонального Розширені комбіновані ряди Утиліта, ви можете комбінувати дублікати рядків і також робити деякі обчислення значень.

1. Виберіть дані про діапазон, які потрібно об’єднати дублікатами.

2. Іди до Розширені комбіновані ряди діалогове вікно;

  • (1.) Виберіть назву стовпця як ключовий стовпець, на основі якого потрібно обчислити інші значення стовпців, а потім натисніть Ключові стовпці;
  • (2.) Виберіть стовпець, для якого потрібно зробити деякі обчислення значень, а потім натисніть Комбіновані операції > Об’єднати обчислення, потім виберіть один тип розрахунку, який вам потрібен, у цьому випадку я вибираю Сума. Дивіться знімок екрана:

знімок екрана, на якому показано, як налаштувати діалогове вікно «Об’єднати рядки на основі стовпця».

3. Якщо вам не потрібно встановлювати операції для решти стовпців, просто збережіть стан за замовчуванням, а потім натисніть OK, а повторювані значення у стовпці A будуть об’єднані та їх відповідні значення у стовпці B будуть додані. Дивіться скріншоти:

знімок екрана вихідного діапазону даних стріла знімок екрана комбінованого результату

Примітки:

1. Якщо ви перевірите Мої дані мають заголовки Якщо ви застосуєте цю утиліту, ваші заголовки (перший рядок) діапазону будуть проігноровані.

2. Використовуйте відформатовані значення: він збереже форматування значень після об'єднання повторюваних комірок.

3. Ця утиліта недоступна для фільтрації даних.

Натисніть, щоб дізнатись більше про цю функцію розширених комбінованих рядків.


Пов'язана стаття:

Об'єднайте повторювані рядки та підсумуйте значення


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

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...


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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!