Hvordan flettes hurtigt tilstødende rækker med samme data i Excel?
Antag at du har et regneark med samme data i de tilstødende rækker, og nu vil du flette de samme celler i en celle, så dataene ser pæne og smukke ud. Hvordan fletter du tilstødende rækker med samme data hurtigt og bekvemt? I dag vil jeg introducere dig til en hurtig måde at løse dette problem på.
Flet tilstødende rækker med samme data med VBA-kode
Selvfølgelig kan du flette de samme data med Flet & Center kommando, men hvis der er hundreder af celler, der skal flettes, vil denne metode være tidskrævende. Så følgende VBA-kode kan hjælpe dig med at flette de samme data let.
1. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende makro i Modulervindue.
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. Tryk derefter på F5 for at køre denne kode, vises en dialogboks på skærmen, hvor du kan vælge et område, du vil arbejde med. Se skærmbillede:
4. Klik derefter på OKvil de samme data i kolonne A blive flettet sammen. Se skærmbillede:
Flet tilstødende rækker med samme data med Kutools til Excel
Med Flet de samme celler nytte af Kutools til Excel, kan du hurtigt flette de samme værdier i flere kolonner med et enkelt klik.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excel, kan du gøre som følger:
1. Vælg de kolonner, som du vil flette de tilstødende rækker med de samme data.
2. Klik Kutools > Flet og del > Flet de samme celler, se skærmbillede:
3. Og så er de samme data i de valgte kolonner flettet i en celle. Se skærmbillede:
Klik for at downloade Kutools til Excel og gratis prøveversion nu!
Hvis du vil vide mere om dette, kan du besøge dette Flet de samme celler funktion.
Demo: Flet de samme celler i en celle eller flet dem ud for at udfylde duplikatværdier:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!