Как объединить несколько строк в одну на основе дубликатов в Excel?
Возможно, у вас есть следующие данные снимка экрана, в столбце A названия продукта есть несколько повторяющихся элементов, и теперь вам нужно удалить повторяющиеся записи в столбце A, но объединить соответствующие значения в столбце B, см. Снимки экрана:
 |
 |
 |
Есть ли у вас эффективные способы решения этой задачи?
Объедините несколько повторяющихся строк в одну с кодом VBA
Объедините несколько повторяющихся строк в один 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.
Связанная статья:
Объедините повторяющиеся строки и просуммируйте значения
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
