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

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

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

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

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

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

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

Следующий код 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. Затем нажмите Кутулс > Слияние и разделение > Расширенные ряды комбинирования.

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

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

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

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

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

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

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

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

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

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

Ноты:

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

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

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

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

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

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