Как объединить несколько строк в одну на основе дубликатов в Excel?
Возможно, у вас есть следующие данные снимка экрана, в столбце A названия продукта есть несколько повторяющихся элементов, и теперь вам нужно удалить повторяющиеся записи в столбце A, но объединить соответствующие значения в столбце B, см. Снимки экрана:
![]() |
![]() |
![]() |
Есть ли у вас эффективные способы решения этой задачи?
Объедините несколько повторяющихся строк в одну с кодом VBA
Объедините несколько повторяющихся строк в один Kutools for Excel
- Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
- Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
- Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
- Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
- Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
- Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
- Более 300 мощных функций; Работает с Office 2007-2021 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.
Объедините несколько повторяющихся строк в одну с кодом 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.
Связанная статья:
Объедините повторяющиеся строки и просуммируйте значения
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

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








