Ugrás a tartalomra

Hogyan kombinálható több cella tartalma az adatok elvesztése nélkül az Excelben?

A cellákat és azok tartalmát gyakran kombinálhatjuk a Microsoft Excel programban. Megtudja azonban a sejtek tartalmának kombinálásának legegyszerűbb módját? Itt arról fogunk beszélni, hogyan lehet egyszerűen és gyorsan kombinálni az Excel cellatartalmait.

Egyesítsen több cellát egy cellába VBA kóddal
Kombináljon több cellát egy cellába a Kutools for Excel adatvesztés nélkül


Egyesítsen több cellát egy cellába VBA kóddal

A következő VBA-kód segíthet több cellát egyetlen cellába egyesíteni, és a kódot a következő lépésekkel alkalmazhatja:

1. Kattints Fejlesztő > Visual Basic, egy új Microsoft Visual Basic alkalmazásokhoz ablak jelenik meg, kattintson a gombra betétlap > Modulok, és írja be a következő kódot a modulba:

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. Ezután kattintson doc-szorzás-számítás-3 gombot a kód végrehajtásához. Megjelenik egy párbeszédpanel, amelyen kiválaszthatja a VBA használatához szükséges tartományt. Képernyőképek megtekintése:

3. Kattints Ok, megjelenik egy másik párbeszédpanel az elválasztó megadásához. Lásd a képernyőképet:

doc kombinálja a cellatartalmat 2

4. Kattints Ok, majd a kiválasztott tartományban lévő cellatartalmakat cellává egyesítik. Lásd a képernyőképet:

doc kombinálja a cellatartalmat 3


Kombináljon több cellát egy cellába a Kutools for Excel adatvesztés nélkül

Ha van Kutools for Excel telepítve több képlet nélkül kombinálhatja több oszlop vagy sor cellatartalmát.

1. Válassza ki az adatokat egyesíteni kívánt cellákat. Kattintson erre a segédprogramra kattintva Kutools > Egyesítés és felosztás > Kombinálja a sorokat, oszlopokat vagy cellákat adatok elvesztése nélkül.

2. Az Kombinálja az oszlopokat vagy a sorokat párbeszédpanelen adja meg a szükséges beállításokat. Lásd a képernyőképet:

  • (1.) Válassza ki Egyesítsd egyetlen cellába alatt A kijelölt cellák egyesítése a következő lehetőségek szerint;
  • (2.) Adjon meg elválasztót az egyesített adatokhoz. Minden tartalmat elkülöníthet szóközzel, semmivel, pontosvesszővel vagy meghatározott szöveggel. És az egyesített tartalmat új sorban is megjelenítheti.

doc kombinálja a cellatartalmat 5

3. Ezután kattintson OK or alkalmaz, a több cellában lévő összes adatot egy cellába egyesítettük. Lásd a képernyőképet:

Megjegyzés: Ez a segédprogram segít a kiválasztott oszlopok celláinak egyesítésében is. Kombinálhatja az utónevet és a vezetéknevet egyetlen teljes névcellába, az alábbi képernyőképen.

Ezután láthatja, hogy az utónevek és a vezetéknevek egyesülnek, és a teljes név cellákban találhatók.

  Ha szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogramból, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Kapcsolódó cikkek


Bemutató: Egyesítsen / egyesítsen több cellát egybe adatveszteség nélkül

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Office Tab Lapos felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

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