Hur sammanfogar man snabbt angränsande rader med samma data i Excel?

Antag att du har ett kalkylblad med samma data i de intilliggande raderna, och nu vill du slå ihop samma celler i en cell, så att data ser snygga och vackra ut. Hur slår du samman angränsande rader med samma data snabbt och bekvämt? Idag presenterar jag dig för ett snabbt sätt att lösa detta problem.

Slå samman intilliggande rader med samma data med VBA-kod

Sammanfoga intilliggande rader med samma data med Kutools för Excel

Slå samman celler och fyll med dubbla värden i Excel

Slå samman intilliggande rader med samma data med VBA-kod

Naturligtvis kan du slå ihop samma data med Slå ihop och centrera kommandot, men om det finns hundratals celler behöver slås samman kommer den här metoden att ta tid. Så följande VBA-kod kan hjälpa dig att slå samman samma data enkelt.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulernafönster.

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. Tryck sedan på F5 för att köra den här koden visas en dialogruta på skärmen för att välja ett intervall att arbeta med. Se skärmdump:

4. Klicka sedan på OKkommer samma data i kolumn A att slås ihop. Se skärmdump:

Sammanfoga intilliggande rader med samma data med Kutools för Excel

Med Slå ihop samma celler nytta av Kutools för Excelkan du snabbt slå samman samma värden i flera kolumner med ett klick.

När du har installerat Kutools för Excelkan du göra enligt följande:

1. Välj de kolumner som du vill slå samman de intilliggande raderna med samma data.

2. Klicka Kutools > Slå ihop och dela > Slå samman samma celler, se skärmdump:

3. Och sedan har samma data i de valda kolumnerna slagits samman i en cell. Se skärmdump:

Klicka för att ladda ner Kutools för Excel och gratis testversion nu!