Note: The other languages of the website are Google-translated. Back to English

Hvordan kombineres indholdet af flere celler uden at miste data i Excel?

Vi kombinerer ofte celler og deres indhold i Microsoft Excel ofte. Men finder du ud af den nemmeste måde at kombinere celleindhold på? Her vil vi tale om, hvordan man nemt og hurtigt kombinerer celleindhold i Excel.

Kombiner flere celler i en celle med VBA-kode
Kombiner flere celler i en celle med Kutools til Excel uden at miste data


Kombiner flere celler i en celle med VBA-kode

Følgende VBA-kode kan hjælpe dig med at kombinere flere celler i en celle, og du kan anvende koden med følgende trin:

1. Klik Udvikler > Visual Basic, En ny Microsoft Visual Basic til applikationer vindue vises, skal du klikke indsatte > Moduler, og indtast følgende kode i modulet:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Klik derefter på doc-multiplicere-beregning-3 knap for at udføre koden. En dialog vises, hvor du kan vælge et område, der skal bruges med VBA. Se skærmbilleder:

3. Klik Ok, vises en anden dialogboks, hvor du kan specificere separatoren. Se skærmbillede:

doc kombinere celleindhold 2

4. Klik Okderefter kombineres celleindholdet i det valgte område til en celle. Se skærmbillede:

doc kombinere celleindhold 3


Kombiner flere celler i en celle med Kutools til Excel uden at miste data

Hvis du har Kutools til Excel installeret, kan du nemt kombinere celleindhold i flere kolonner eller rækker uden at bruge formler.

1. Vælg de celler, som du vil flette dataene på. Og anvend dette værktøj ved at klikke Kutools > Flet og del > Kombiner rækker, kolonner eller celler uden at miste data.

2. I Kombiner kolonner eller rækker i dialogboksen, skal du angive de indstillinger, du har brug for. Se skærmbillede:

  • (1.) Vælg Kombiner til en enkelt celle under At kombinere valgte celler i henhold til følgende muligheder;
  • (2.) Angiv en separator for de kombinerede data. Du kan adskille hvert indhold med mellemrum, intet, semikolon eller specifik tekst. Og du kan også vise det kombinerede indhold i en ny linje.

doc kombinere celleindhold 5

3. Klik derefter på OK or Indløs, alle data i flere celler er blevet flettet i en celle. Se skærmbillede:

Bemærk: Dette værktøj kan også hjælpe med at kombinere celler i valgte kolonner. Du kan kombinere for- og efternavn i en enkelt celle med fuld navn som vist nedenfor.

Derefter kan du se de fornavne og efternavne kombineres og placeres i cellerne med fuldt navn.

  Hvis du vil have en gratis prøveperiode (30-dag) for dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Relaterede artikler


Demo: Kombiner / flet flere celler i en uden at miste data


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.
kte-fane 201905

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!
officetab bund

Sorter kommentarer efter
Kommentarer (7)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Meget hjælpsom tak, det tog mig et stykke tid at finde det, men det var lige hvad jeg havde brug for. Bemærk i VBA-koden, hvis du ønsker at adskille data med semikolon, komma eller et andet tegn i feltet "delim = " " ", sætter du karakter mellem citationseksemplet: delim = ";". Tak igen.
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak for koden. Var meget hjælpsom.
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak - det var en stor hjælp!
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan flettes 2 celler f.eks.:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk! Det hjælper meget! Mange tak!
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan gentage processen, hvis jeg har 4 forskellige referencer og skal kombinere dem efter hinanden
Denne kommentar blev minimeret af moderatoren på webstedet
min tidligere forespørgsel handler om denne vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Suk As String On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("RangeBox("Range ", xTitleId, WorkRng.Address, Type:=8) Suk = Application.InputBox("Symbolfletning", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = Falsk for hver Rng In WorkRng xOut = xOut & Rng.Value & Sigh Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Between, hvad betyder skriv her, "8 " & "2" henviser til
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL