Як об’єднати кілька рядків в один на основі дублікатів у Excel?
Можливо, у вас є наступні дані знімка екрана, у стовпці "Назва товару" є кілька повторюваних елементів, і тепер вам потрібно видалити повторювані записи у стовпці A, але об'єднати відповідні значення у стовпці B, див. Скріншоти:
 |
 |
 |
Чи є у вас кілька ефективних способів вирішення цього завдання?
Поєднайте кілька повторюваних рядків в один із кодом VBA
Об’єднайте кілька повторюваних рядків в один 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. Ця утиліта недоступна для фільтрації даних.
Натисніть, щоб дізнатись більше про цю функцію розширених комбінованих рядків.
Пов'язана стаття:
Об'єднайте повторювані рядки та підсумуйте значення
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
