Note: The other languages of the website are Google-translated. Back to English

Hoe snel rijen samenvoegen op basis van één kolomwaarde en vervolgens enkele berekeningen uitvoeren in Excel?

U hebt bijvoorbeeld een gegevensbereik en één kolom heeft duplicaten, nu wilt u rijen samenvoegen met de basis van kolom A (heeft duplicaten) en vervolgens enkele berekeningen uitvoeren naar een andere kolom op basis van de samengevoegde rijen, zoals weergegeven in het screenshot:

In Excel is er geen snelle methode om rijen samen te voegen op basis van één kolomwaarde, maar hier introduceer ik de
trucs waarmee u dubbele rijen kunt samenvoegen en vervolgens kunt optellen of andere berekeningen kunt uitvoeren op een andere kolom.


pijl blauw rechts bel Voeg rijen samen op basis van één kolom en vervolgens somwaarden met VBA

Er is een VBA-code die u kan helpen om de dubbele rijen samen te voegen en vervolgens andere kolomwaarden op te tellen.

Bladeren en bewerken met tabbladen in meerdere Excel-werkmappen / Word-documenten als Firefox, Chrome, Internet Explore 10!

Het is wellicht bekend om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen de webpagina's te schakelen door eenvoudig op de bijbehorende tabbladen te klikken. Hier ondersteunt Office Tab vergelijkbare verwerking, waardoor u door meerdere Excel-werkmappen of Word-documenten in één Excel-venster of Word-venster kunt bladeren, en gemakkelijk tussen deze kunt schakelen door op hun tabbladen te klikken. Klik voor gratis 30 dagen proefversie van Office Tab!

iet uitblinken

1. druk op F11 + Alt toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster en klik op Invoegen > Module en kopieer en plak onderstaande VBA-code in het nieuwe Module venster.

VBA: rijen samenvoegen op basis van één kolomwaarde

Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
    If Not .Exists(Rng.Value) Then
        .Add Rng.Value, Rng.Offset(, 1)
    Else
        .Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
            If nRng Is Nothing Then
                Set nRng = Rng
            Else
                Set nRng = Union(nRng, Rng)
            End If
    End If
Next
If Not nRng Is Nothing Then
    nRng.EntireRow.Delete
End If
End With
End Sub

2. druk op F5 of klik op lopen om de VBA uit te voeren, en een dialoogvenster verschijnt om een ​​gegevensbereik te selecteren om te werken. zie screenshot:

doc-kolommen samenvoegen op basis van één kolom 3

3. Nadat u een werkbereik heeft geselecteerd, klikt u op OK. Nu zijn de gegevens samengevoegd in de eerste kolom en de waarden in de tweede kolom opgeteld.

doc-kolommen samenvoegen op basis van één kolom 4

Opmerking:: Deze VBA-code kan gewoon correct werken bij het samenvoegen op basis van de eerste kolom en somwaarden in de tweede kolom.


pijl blauw rechts bel Voeg rijen samen op basis van één kolom en vervolgens somwaarden met Advanced Combine Rows

Als u niet bekend bent met VBA-code, kunt u de Geavanceerd Combineer rijen kenmerk van de add-in-tool van het derde deel - Kutools for Excel om de dubbele rijen gemakkelijk en snel samen te voegen en vervolgens de waarden in een andere kolom op te tellen.

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer de gegevens die u wilt gebruiken en klik op Kutools > Samenvoegen en splitsen > Geavanceerd Combineer rijen. Zie screenshot:

doc geavanceerde maaidorser rij 1

2. Selecteer vervolgens in het popping-dialoogvenster de kolom waarop u andere kolommen wilt samenvoegen en klik vervolgens op Primair Sleutel, klik op een andere kolom en klik op Berekenen Selecteer dan Som.

Tip: Als uw geselecteerde bereik kopteksten heeft, controleer dan Mijn gegevens hebben kopteksten, en check Gebruik opgemaakte waarden behoudt de opmaak na het samenvoegen.

doc-kolommen samenvoegen op basis van één kolom 6

3. Dan klikken Ok. Nu zijn de gegevens samengevoegd op basis van de primaire kolom en wordt een andere samengevat. Zie screenshot:

doc-kolommen samenvoegen op basis van één kolom 7


pijl blauw rechts bel Voeg rijen samen op basis van één kolom en voer vervolgens verschillende bewerkingen uit op andere kolommen met Advanced Combine Rows.

Geavanceerd Combineer rijen is krachtig, omdat het niet alleen dubbele rijen in één kolom kan samenvoegen en vervolgens een andere kolom kan optellen, maar ook dubbele rijen in één kolom kan samenvoegen en vervolgens verschillende bewerkingen op andere kolommen kan uitvoeren.

Stel dat ik een gegevensbereik heb zoals hieronder afgebeeld, en ik wil zowel waarden in kolom B als somwaarden in kolom C combineren op basis van kolom A.
doc-kolommen samenvoegen op basis van één kolom 8

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer het gegevensbereik en klik op Kutools > Samenvoegen en splitsen > Geavanceerd Combineer rijen. Zie screenshot:

doc geavanceerde maaidorser rij 1

2. In de Combineer rijen op basis van kolom dialoog, doe als volgt:

(1) Klik op de kolom die u wilt combineren op basis van, en klik Hoofdsleutel;

doc-kolommen samenvoegen op basis van één kolom 10

(2) Klik op de kolom waarin u gegevens wilt combineren en klik op Combinerenen selecteer vervolgens een scheidingsteken dat u nodig hebt uit de lijst;

doc-kolommen samenvoegen op basis van één kolom 11

(3) Klik op de kolom waarvan u de waarden wilt optellen en klik BerekenenEn Select Som.

doc-kolommen samenvoegen op basis van één kolom 12

3. klikken Ok. Nu kunt u het resultaat zien zoals hieronder:

doc-kolommen samenvoegen op basis van één kolom 13

met Geavanceerd Combineer rijen functie, kunt u ook rijen samenvoegen op basis van één kolom en vervolgens tellen, gemiddeld nemen, 1e of laatste gegevens in andere kolommen behouden. 


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken!
officetab onderkant
Comments (3)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hé, je module werkte vroeger ook voor grote tabellen (je wilt bijvoorbeeld op jaarbasis optellen, maar je hebt Sales 1, Sales 2, Sales 3...etc). Maar nu krijgt het alleen de eerste kolom goed (Sales 1) en worden alle andere niet correct opgeteld. Heb je iets veranderd?
Bedankt!
IK
Deze opmerking is gemaakt door de moderator op de site
Hallo, IK, misschien kun je de somproductfunctie SOMPRODUCT((A2:A10=”Pen”)*(B2:E10)) gebruiken om ze één voor één te berekenen. A2:A10 is het bereik dat de opzoekwaarde bevat, pen is het criterium, B2:E10 is het bereik dat u wilt optellen op basis van criterium.
Sunny
Deze opmerking is gemaakt door de moderator op de site
Ik heb dezelfde/soortgelijke vraag. Ik probeer alle kolommen rechts van de referentiecel op te tellen, maar het telt alleen de ene op. Hoe krijg ik het om al die aan de rechterkant afzonderlijk op te tellen?
story20
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties