Gå til hovedindhold

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 dage) af 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

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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...

Beskrivelse


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!

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba: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 Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " " " field put you charater betwen the quotes example: delim = ";". Thanks again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations