Как да комбинирам няколко реда в един въз основа на дубликати в Excel?
Може би имате следните данни за екранна снимка, в колоната A за име на продукта има някои дублиращи се елементи и сега трябва да премахнете дублиращите се записи в колона A, но да комбинирате съответните стойности в колона B, вижте екранните снимки:
Имате ли ефективни начини за решаване на тази задача?
Комбинирайте множество дублиращи се редове в един с VBA код
Комбинирайте множество дублиращи се редове в един Kutools за Excel
Комбинирайте множество дублиращи се редове и сумирайте/среднете стойностите с Kutools за 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 за Excel
След като горният код има някои ограничения и рискове, има ли удобен и безопасен начин да завършите тази работа? с Kutools за ExcelЕ Разширено комбиниране на редове помощна програма, можете бързо да премахнете множество дублиращи се редове в колоните, които базирате, и да обедините или да направите някои изчисления за други записи в подходящи клетки.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега.
След като инсталирате Kutools за Excel, моля, направете следното:
1. Изберете данните от диапазона, които искате да комбинирате дубликати.
2, След това кликнете Kutools > Конвертор на съдържание > Разширено комбиниране на редове. Вижте екранна снимка:
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% и намалява стотици кликвания на мишката за вас всеки ден!