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:
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
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!
