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
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.
| Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
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!
För att veta mer om detta, besök detta Slå samman samma celler särdrag.
Demo: Slå ihop samma celler till en cell eller slå samman för att fylla dubbla värden:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
