Hoe kunt u rijen snel samenvoegen op basis van één kolomwaarde en daarna berekeningen uitvoeren in Excel?
Stel dat u een gegevensbereik hebt waarin één kolom dubbele waarden bevat. U wilt rijen samenvoegen op basis van kolom A (met de dubbele waarden) en vervolgens berekeningen uitvoeren op een andere kolom, zoals weergegeven in de schermafbeelding:
In Excel bestaat er geen snelle methode om rijen samen te voegen op basis van één kolomwaarde, maar hieronder vindt u handige trucs om dubbele rijen samen te voegen en optellingen of andere berekeningen uit te voeren op een andere kolom.
| Oorspronkelijke gegevens | Samenvoegen en optellen |
 |  |
Rijen samenvoegen op basis van één kolom en waarden optellen met VBA
Er is een VBA-code waarmee u dubbele rijen kunt samenvoegen en de waarden in een andere kolom kunt optellen.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen. Klik vervolgens op Invoegen > Module en plak de onderstaande VBA-code in de nieuwe Module.
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 Sub2. Druk op F5 of klik op de knop Uitvoeren om de VBA uit te voeren. Er verschijnt een dialoogvenster waarin u een gegevensbereik kunt selecteren om mee te werken. Zie de schermafbeelding:
3. Nadat u een werkgebied hebt geselecteerd, klikt u op OK. De gegevens zijn nu samengevoegd op basis van de eerste kolom, en de waarden in de tweede kolom zijn opgeteld.
Opmerking: Deze VBA-code werkt alleen correct als u samenvoegt op basis van de eerste kolom en waarden optelt in de tweede kolom.
Rijen samenvoegen op basis van één kolom en waarden optellen met Geavanceerd samenvoegen van rijen
Als u niet bekend bent met VBA-code, kunt u de functie Geavanceerd samenvoegen van rijen van de add-in van derden – Kutools voor Excel – gebruiken om eenvoudig en snel dubbele rijen samen te voegen en de waarden in een andere kolom op te tellen.
1. Selecteer de gegevens die u wilt gebruiken en klik op Kutools > Samenvoegen en splitsen > Geavanceerd samenvoegen van rijen. Zie de schermafbeelding:
2. Selecteer in het verschijnende dialoogvenster de kolom waarop u andere kolommen wilt samenvoegen, klik op Primaire sleutel, klik vervolgens op een andere kolom, klik op Berekenen en selecteer Optellen.
Tip: Als uw geselecteerde bereik headers bevat, vink dan Titels opnemen aan. Door Opgemaakte waarden gebruiken aan te vinken, blijft de opmaak na het samenvoegen behouden.
3. Klik vervolgens op Ok. De gegevens zijn nu samengevoegd op basis van de primaire kolom, en de waarden uit de andere kolom zijn opgeteld. Zie de schermafbeelding:
Rijen samenvoegen op basis van één kolom en diverse bewerkingen toepassen op andere kolommen met Geavanceerd samenvoegen van rijen.
Geavanceerd samenvoegen van rijen is krachtig, omdat het niet alleen dubbele rijen in één kolom kan samenvoegen en een andere kolom kan optellen, maar ook dubbele rijen in één kolom kan samenvoegen en verschillende bewerkingen op andere kolommen kan uitvoeren.
Stel dat ik een gegevensbereik heb zoals op de onderstaande schermafbeelding wordt weergegeven, en ik wil de waarden in kolom B samenvoegen én de waarden in kolom C optellen, beide gegroepeerd op kolom A.
Kutools voor Excel – Vol met meer dan 300 essentiële hulpmiddelen voor Excel. Maak uw Excel-taken sneller, eenvoudiger en efficiënter.Download nu!
1. Selecteer Kutools > Samenvoegen en splitsen > Geavanceerd samenvoegen van rijen. Zie de schermafbeelding:
2. Voer in het dialoogvenster Rijen samenvoegen op basis van kolom de volgende stappen uit:
(1) Klik op de kolom waarop u gegevens wilt combineren en klik op Primaire sleutel;
(2) Klik op de kolom waarvan u de gegevens wilt combineren en klik op Combineren, en selecteer vervolgens een gewenste scheidingsteken uit de lijst;
(3) Klik op de kolom waarvan u de waarden wilt optellen, klik op Berekenen en selecteer Optellen.
3. Klik op Ok. U ziet nu het resultaat zoals hieronder:
Met de functie Geavanceerd samenvoegen van rijen kunt u rijen samenvoegen op basis van één kolom en vervolgens waarden tellen, gemiddelden berekenen of de eerste of laatste gegevens uit andere kolommen behouden.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins