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

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
Egyesítsen több cellát egy cellába a Kutools for Excel programmal az adatok elvesztése 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


Egyesítsen több cellát egy cellába a Kutools for Excel programmal az adatok elvesztése nélkül

Ha van Kutools az Excel számára 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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja

A megjegyzések rendezése szerint
Hozzászólások (7)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon hasznos, köszönöm, hogy eltartott egy ideig, míg megtaláltam, de pont erre volt szükségem. Jegyezze meg a VBA-kódban, ha pontosvesszővel, vesszővel vagy más karakterrel szeretné elválasztani az adatokat a "delim = " " " mezőben, tegyen karaktert az idézőjelek közé, például: delim = ";". Köszönöm mégegyszer.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon köszönöm a kódot. Nagyon hasznos volt.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen - nagy segítség volt!
A weboldal moderátora ezt a megjegyzést minimalizálta
2 cella egyesítése pl.:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
A weboldal moderátora ezt a megjegyzést minimalizálta
Fantasztikus! Nagyban segít! Nagyon szépen köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
hogyan ismételje meg a folyamatot, ha 4 különböző referenciám van, és ezeket egymás után kell kombinálnom
A weboldal moderátora ezt a megjegyzést minimalizálta
korábbi lekérdezésem erre vonatkozik: vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application SetInput.RBox ="RtInput.RBox. ", xTitleId, WorkRng.Address, Type:=8) Sigh = Application.InputBox("Szimbólum egyesítés", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = Hamis minden Rng In WorkRng xOut esetén = xOut & Rng.Value & Sigh Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) Vége: Application.DisplayAlerts = True End Sub Mit jelent a beírás itt: "8 A " és a "2" arra utal
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi