Hoe meerdere rijen combineren tot één op basis van duplicaten in Excel?
Misschien heeft u de volgende screenshotgegevens, in de Productnaam kolom A, zijn er enkele dubbele items, en nu moet u de dubbele items in kolom A verwijderen, maar de overeenkomstige waarden in kolom B combineren, zie screenshots:
Heeft u een aantal effectieve manieren om deze taak op te lossen?
Combineer meerdere dubbele rijen tot één met VBA-code
Combineer meerdere dubbele rijen in één Kutools voor Excel
Combineer meerdere dubbele rijen en som / gemiddelde de waarden op met Kutools voor Excel
Combineer meerdere dubbele rijen tot één met VBA-code
De volgende VBA-code kan u helpen dubbele rijen te combineren op basis van de waarde van kolom A, en de volgende code wordt alleen toegepast voor twee kolommen. Dus als u gegevens uit twee kolommen heeft, zal deze code u een plezier doen.
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: combineer meerdere rijen tot één
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. Druk vervolgens op F5 -toets, en er verschijnt een promptvenster om u eraan te herinneren een bereik te selecteren dat u moet combineren. Zie screenshot:
4. En klik vervolgens op OKzijn de waarden in kolom B gecombineerd tot één record en gescheiden door spaties.
Opmerkingen:
1. Deze code kan de originele gegevens vernietigen. Als u deze gebruikt, kunt u beter eerst een back-up van de gegevens maken.
2. Deze code wordt alleen toegepast voor twee kolommen. Als u meer dan twee kolommen heeft, zal deze code alleen de eerste twee kolommen combineren en andere kolomgegevens verwijderen. Wanneer u deze code gebruikt, moet u voorzichtig zijn.
Combineer meerdere dubbele rijen in één Kutools voor Excel
Nu de bovenstaande code enkele beperkingen en risico's heeft, is er een handige en veilige manier om deze klus te klaren? Met Kutools for Excel's Geavanceerd Combineer rijen hulpprogramma kunt u snel meerdere dubbele rijen verwijderen in de kolommen waarop u bent gebaseerd en deze samenvoegen of enkele berekeningen uitvoeren voor andere records in de juiste cellen.
Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now.
Ga als volgt te werk na het installeren van Kutools voor Excel:
1. Selecteer de bereikgegevens die u duplicaten wilt combineren.
2. Dan klikken Kutools > Inhoud converter > Geavanceerd Combineer rijen. Zie screenshot:
3. In de Geavanceerd Combineer rijen dialoogvenster, selecteert u de kolomnaam als de sleutelkolommen waarop u waarden wilt combineren op basis van en klikt u op Sleutel kolommen. Zie screenshot:
4. Klik vervolgens op de kolom die u nodig hebt om hun waarden in één record te combineren, en klik vervolgens op Combineer operaties En kies Alleen combineren met afscheider, en kies een scheidingsteken dat u nodig hebt om de gecombineerde waarden van de rechterlijst te scheiden. Zie screenshot:
5. Klik na het voltooien van de instellingen op OK, en uw gegevens worden samengevoegd op basis van de sleutelkolommen en gescheiden door scheidingstekens.
Opmerking: Als u de bewerkingen voor de overige kolommen niet hoeft in te stellen, behoudt u gewoon de standaardstatus.
Combineer meerdere dubbele rijen en som / gemiddelde de waarden op met Kutools voor Excel
Met deze multifunctional Geavanceerd Combineer rijen hulpprogramma, kunt u dubbele rijen combineren en ook enkele berekeningen voor de waarden uitvoeren.
1. Selecteer de bereikgegevens die u duplicaten wilt combineren.
2. Ga naar de Geavanceerd Combineer rijen dialoog venster;
- (1.) Selecteer een kolomnaam als sleutelkolom waarop u andere kolomwaarden wilt berekenen, en klik vervolgens op Sleutel kolommen;
- (2.) Selecteer de kolom die u nodig hebt om enkele berekeningen voor de waarden uit te voeren, en klik vervolgens op Combineer operaties > Combineer berekenen, kies dan een berekeningstype dat je nodig hebt, in dit geval selecteer ik Som. Zie screenshot:
3. Als u de bewerkingen voor de overige kolommen niet hoeft in te stellen, behoudt u gewoon de standaardstatus en klikt u op OK, en de dubbele waarden in kolom A worden samengevoegd en hun overeenkomstige waarden in kolom B worden opgeteld. Zie screenshots:
Opmerkingen:
1. Als u controleert Mijn gegevens hebben kopteksten optie, worden uw kopteksten (de eerste rij) van het bereik genegeerd wanneer u dit hulpprogramma toepast.
2. Gebruik opgemaakte waarden: het behoudt de opmaak van de waarden na het combineren van de dubbele cellen.
3. Dit hulpprogramma is niet beschikbaar voor het filteren van gegevens.
Klik om meer te weten over deze functie Advanced Combine Rows.
Gerelateerd artikel:
Combineer dubbele rijen en tel de waarden op
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!