Как объединить несколько строк в одну на основе дубликатов в Excel?

Возможно, у вас есть следующие данные снимка экрана, в столбце A названия продукта есть несколько повторяющихся элементов, и теперь вам нужно удалить повторяющиеся записи в столбце A, но объединить соответствующие значения в столбце B, см. Снимки экрана:

Есть ли у вас эффективные способы решения этой задачи?

Объедините несколько повторяющихся строк в одну с кодом VBA

Объедините несколько повторяющихся строк в один Kutools for Excel

Объедините несколько повторяющихся строк и суммируйте / усредняйте значения с помощью Kutools for Excel

Объедините несколько повторяющихся строк в одну с кодом VBA

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

Следующий код VBA может помочь вам объединить повторяющиеся строки на основе значения столбца A, а следующий код применяется только для двух столбцов. Итак, если у вас есть данные из двух столбцов, этот код окажет вам услугу.

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > модульи вставьте следующий код в Окно модуля.

Код 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 for Excel

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

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

После установки Kutools for Excel, сделайте следующее:

1. Выберите данные диапазона, дубликаты которых вы хотите объединить.

2. Затем нажмите Kutools > Конвертер контента > Расширенные ряды комбинирования. Смотрите скриншот:

3. В Расширенные ряды комбинирования В диалоговом окне выберите имя столбца в качестве ключевых столбцов, на основе которых вы хотите объединить значения, а затем щелкните Ключевые столбцы. Смотрите скриншот:

4. Затем щелкните столбец, в котором необходимо объединить их значения в одну запись, а затем щелкните Объединить операции и выберите Только комбинировать с разделителеми выберите один разделитель, необходимый для разделения объединенных значений из правого списка. Смотрите скриншот:

5. После завершения настройки нажмите OK, и ваши данные будут объединены на основе ключевых столбцов и разделены разделителями.

Примечание: Если вам не нужно настраивать операции для остальных столбцов, просто оставьте состояние по умолчанию.

Объедините несколько повторяющихся строк и суммируйте / усредняйте значения с помощью Kutools for Excel

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

1. Выберите данные диапазона, дубликаты которых вы хотите объединить.

2, Перейти к Расширенные ряды комбинирования диалоговое окно;

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

3. Если вам не нужно настраивать операции для остальных столбцов, просто оставьте состояние по умолчанию, затем нажмите OK, и повторяющиеся значения в столбце A будут объединены, а их соответствующие значения в столбце B будут добавлены. Смотрите скриншоты:

Ноты:

1. Если вы проверите У моих данных есть заголовки При использовании этой утилиты ваши заголовки (первая строка) диапазона будут проигнорированы.

2. Использовать форматированные значения: он сохранит форматирование значений после объединения повторяющихся ячеек.

3. Эта утилита недоступна для фильтрации данных.

Нажмите, чтобы узнать больше об этой функции Advanced Combine Rows.

Связанная статья:

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

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Больше информации... Скачать бесплатно... Покупка ... 

---

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

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...