Hvordan du raskt slå sammen tilstøtende rader med samme data i

Of Excel Selvfølgelig kan du flette de samme dataene med Merge & Senter kommando, men hvis det er hundrevis av cellene trenger for å bli slått sammen, denne metoden vil være tidkrevende. Så følgende VBA-kode kan hjelpe deg med å flette de samme data enkelt.
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende makro i Modulewindow.
Sub MergeSameCell () 'Updateby20131127Dim RNG As Range, Xcell Som RangeDim xRows Som IntegerxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalsexRows = WorkRng.Rows.CountFor Hver RNG I WorkRng.Columns For i = 1 Til xRows - 1 For j = i + 1 Å xRows Hvis RNG .Cells (i, 1) .Value < > Rng.Cells (j, 1) .Value Then Exit For End If Neste WorkRng.Parent.Range. (Rng.Cells (i, 1), Rng.Cells (j - 1, 1)) Slå sammen i = j - 1 NextNextApplication .DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub3. Deretter trykker du på F5 for å kjøre denne koden, en dialogboks vises på skjermen for å velge et område å jobbe med. Se skjermbilde:
4. Deretter klikker OK, vil de samme dataene i kolonne A slås sammen og sentrert. Se skjermbilder:

Merge tilstøtende rader med samme data med Kutools for Excel
Med flette samme cellene nytten av Kutools for Excel, kan du raskt slå sammen de samme verdiene i flere kolonner med ett klikk
. Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. . Få den nå
Etter installering Kutools for Excel, kan du gjøre som følger:
1. Velg kolonnene som du vil slå sammen de tilstøtende rader med samme data.
2. Klikk Kutools > Range Converter > Flett samme cellene, se skjermbilde.
Og de samme dataene i de valgte kolonnene er slått sammen i én celle
å vite mer om dette, kan du gå til denne flette samme cellene har
.