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

Hur kombinerar man innehåll i flera celler utan att förlora data i Excel?

Vi kan kombinera celler och deras innehåll ofta i Microsoft Excel. Men tar du reda på det enklaste sättet att kombinera cellinnehåll? Här kommer vi att prata om hur man kombinerar cellinnehåll i Excel enkelt och snabbt.

Kombinera flera celler i en cell med VBA-kod
Kombinera flera celler i en cell med Kutools för Excel utan att förlora data


Kombinera flera celler i en cell med VBA-kod

Följande VBA-kod kan hjälpa dig att kombinera flera celler i en cell, och du kan tillämpa koden med följande steg:

1. Klicka Utvecklare > Visual Basic, en ny Microsoft Visual Basic för applikationer fönstret visas, klicka Insert > Modulernaoch mata in följande kod i modulen:

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. Klicka sedan doc-multiplicera-beräkning-3 för att köra koden. En dialogruta dyker upp för dig att välja ett intervall för att arbeta med VBA. Se skärmdumpar:

3. Klicka Ok, visas en annan dialogruta där du kan ange separator. Se skärmdump:

doc kombinera cellinnehåll 2

4. Klicka Ok, sedan kombineras cellinnehållet i det valda intervallet till en cell. Se skärmdump:

doc kombinera cellinnehåll 3


Kombinera flera celler i en cell med Kutools för Excel utan att förlora data

Om du har Kutools för Excel installerat kan du enkelt kombinera cellinnehåll i flera kolumner eller rader utan att använda formler.

1. Välj de celler som du vill slå samman data. Och använd detta verktyg genom att klicka Kutools > Slå ihop och dela > Kombinera rader, kolumner eller celler utan att förlora data.

2. I Kombinera kolumner eller rader dialogrutan, ange vilka alternativ du behöver. Se skärmdump:

  • (1.) Välj Kombinera i en enda cell under Att kombinera valda celler enligt följande alternativ;
  • (2.) Ange en separator för de kombinerade uppgifterna. Du kan separera varje innehåll med mellanslag, ingenting, semikolon eller specifik text. Och du kan också visa det kombinerade innehållet i en ny rad.

doc kombinera cellinnehåll 5

3. Klicka sedan OK or tillämpashar all data i flera celler slagits samman i en cell. Se skärmdump:

Obs! Det här verktyget kan också hjälpa till att kombinera celler i valda kolumner. Du kan kombinera för- och efternamn i en enda fullständig namncell enligt nedanstående skärmdump.

Då kan du se förnamn och efternamn kombineras och placeras i cellerna med fullständiga namn.

  Om du vill ha en gratis provperiod (30-dag) för detta verktyg, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Relaterade artiklar


Demo: Kombinera / slå ihop flera celler till en utan att förlora data


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

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

Sortera kommentarer efter
Kommentarer (7)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Mycket hjälpsamt tack det tog mig ett tag att hitta det men det var precis vad jag behövde. Notera i VBA-koden om du vill separera data med semikolon, kommatecken eller något annat tecken i "delim = " " "-fältet sätter du tecken mellan citatens exempel: delim = ";". Tack igen.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket för koden. Var mycket hjälpsam.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket - var till stor hjälp!
Denna kommentar minimerades av moderatoren på webbplatsen
hur man slår samman 2 celler ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Denna kommentar minimerades av moderatoren på webbplatsen
Grymt bra! Hjälper mycket! Tack så mycket!
Denna kommentar minimerades av moderatoren på webbplatsen
hur upprepar jag processen om jag har 4 olika referenser och behöver kombinera dem efter varandra
Denna kommentar minimerades av moderatoren på webbplatsen
min tidigare fråga handlar om denna vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Suck As String On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("RangeBox("Range ", xTitleId, WorkRng.Address, Type:=8) Suck = Application.InputBox("Symbol sammanfogning", xTitleId, ",", Typ:=2) xOut = "" Application.DisplayAlerts = False för varje Rng In WorkRng xOut = xOut & Rng.Value & Suck Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Between, vad skriver den här, "8 " & "2" hänvisar till
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL