Hoe kunt u snel aangrenzende rijen met dezelfde gegevens samenvoegen in Excel?

Stel dat u een werkblad heeft met dezelfde gegevens in de aangrenzende rijen, en nu wilt u dezelfde cellen samenvoegen in één cel, zodat de gegevens netjes en mooi worden. Hoe voegt u aangrenzende rijen met dezelfde gegevens snel en gemakkelijk samen? Vandaag introduceer ik u aan enkele snelle manieren om dit probleem op te lossen.

Aangrenzende rijen van dezelfde gegevens samenvoegen met VBA-code

Aangrenzende rijen van dezelfde gegevens samenvoegen met Kutools voor Excel

Cellen splitsen en vullen met dubbele waarden in Excel

Aangrenzende rijen van dezelfde gegevens samenvoegen met VBA-code

Natuurlijk kunt u dezelfde gegevens samenvoegen met de opdracht Samenvoegen en centreren, maar als er honderden cellen samengevoegd moeten worden, zal deze methode tijdrovend zijn. Dus de volgende VBA-code kan u helpen om dezelfde gegevens gemakkelijk samen te voegen.

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende macro in het modulevenster.

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 F5-toets om deze code uit te voeren, er verschijnt een dialoogvenster op het scherm om een bereik te selecteren om mee te werken. Zie screenshot:

4. Klik vervolgens op OK, dezelfde gegevens in kolom A worden samengevoegd. Zie screenshot:

Aangrenzende rijen van dezelfde gegevens samenvoegen met Kutools voor Excel

Met het hulpprogramma Gelijke cellen samenvoegen van Kutools voor Excel kunt u met één klik snel dezelfde waarden in meerdere kolommen samenvoegen.

Na het installeren van Kutools voor Excel kunt u als volgt te werk gaan:

1. Selecteer de kolommen waarin u de aangrenzende rijen met dezelfde gegevens wilt samenvoegen.

2. Klik op Kutools > Samenvoegen & Opsplitsen > Gelijke cellen samenvoegen, zie screenshot:

3. Dezelfde gegevens in de geselecteerde kolommen zijn nu samengevoegd in één cel. Zie screenshot:

Klik hier om Kutools voor Excel te downloaden en gratis te proberen!