Hoe voegt u snel aangrenzende rijen met identieke gegevens samen in Excel?
Stel dat u een werkblad hebt waarin aangrenzende rijen identieke gegevens bevatten en u deze cellen wilt samenvoegen tot één cel voor een nette, overzichtelijke weergave. Hoe voegt u aangrenzende rijen met dezelfde gegevens dan snel en eenvoudig samen? Vandaag introduceer ik u enkele handige methoden om dit probleem efficiënt op te lossen.
Aangrenzende rijen met dezelfde gegevens samenvoegen met VBA-code
Aangrenzende rijen met dezelfde gegevens samenvoegen met Kutools voor Excel
Cellen ontmantelen en vullen met Dubbele waarden in Excel
Aangrenzende rijen met dezelfde gegevens samenvoegen met VBA-code
U kunt dezelfde gegevens natuurlijk samenvoegen met de opdracht Samenvoegen en centreren, maar als u honderden cellen moet samenvoegen, is deze methode tijdrovend. De volgende VBA-code helpt u eenvoudig dezelfde gegevens samen te voegen.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster op het scherm waarin u een bereik kunt selecteren om mee te werken. Zie de schermafbeelding:
4. Klik daarna op OK, waarna dezelfde gegevens in kolom A worden samengevoegd. Zie de schermafbeelding:
Aangrenzende rijen met dezelfde gegevens samenvoegen met Kutools voor Excel
Met de functie Voeg dezelfde cellen samen van Kutools voor Excel voegt u met één klik dezelfde waarden in meerdere kolommen razendsnel samen.
Na installatie van Kutools voor Excelgaat u als volgt te werk:
1. Selecteer de kolommen waarvan u aangrenzende rijen met identieke gegevens wilt samenvoegen.
2. Klik op Kutools > Samenvoegen en splitsen > Voeg dezelfde cellen samen, zie de schermafbeelding:
3. De identieke gegevens in de geselecteerde kolommen zijn nu samengevoegd tot één cel. Zie de schermafbeelding:
Klik hier om Kutools voor Excel nu te downloaden en gratis uit te proberen!
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