Jak rychle sloučit sousední řádky se stejnými daty v aplikaci Excel?

Předpokládejme, že máte list se stejnými daty v sousedních řádcích a nyní chcete sloučit stejné buňky do jedné buňky, aby data vypadala úhledně a krásně. Jak rychle a pohodlně sloučíte sousední řádky se stejnými daty? Dnes vám představím rychlý způsob řešení tohoto problému.

Sloučte sousední řádky stejných dat s kódem VBA

Sloučte sousední řádky se stejnými daty pomocí Kutools pro Excel

Zrušte sloučení buněk a vyplňte duplicitní hodnoty v aplikaci Excel

Sloučte sousední řádky stejných dat s kódem VBA

Stejná data můžete samozřejmě sloučit s Sloučit a vycentrovat příkaz, ale pokud je třeba sloučit stovky buněk, bude tato metoda časově náročná. Následující kód VBA vám tedy pomůže snadno sloučit stejná data.

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující makro do souboru Modulokno.

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. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, na obrazovce se zobrazí dialog pro výběr rozsahu pro práci. Viz screenshot:

4. Pak klikněte na tlačítko OK, stejná data ve sloupci A budou sloučena dohromady. Viz screenshot:

Sloučte sousední řádky se stejnými daty pomocí Kutools pro Excel

S Sloučit stejné buňky užitečnost Kutools pro Excel, můžete jedním kliknutím rychle sloučit stejné hodnoty do více sloupců.

Po instalaci Kutools pro Excel, můžete postupovat následovně:

1. Vyberte sloupce, které chcete sloučit sousední řádky se stejnými daty.

2, klikněte Kutools > Sloučit a rozdělit > Sloučit stejné buňky, viz screenshot:

3. A pak byla stejná data ve vybraných sloupcích sloučena do jedné buňky. Viz screenshot:

Klikněte a stáhněte si Kutools pro Excel a bezplatnou zkušební verzi hned teď!

Chcete-li se o tom dozvědět více, navštivte toto Sloučit stejné buňky vlastnost.

Demo: Sloučit stejné buňky do jedné buňky nebo zrušit sloučení a vyplnit duplicitní hodnoty: