Preskoči na glavno vsebino

Kako združiti vsebino več celic brez izgube podatkov v Excelu?

Celice in njihovo vsebino lahko pogosto kombiniramo v programu Microsoft Excel. Vendar pa ugotovite, kako najlažje kombinirate celično vsebino? Tu bomo govorili o tem, kako enostavno in hitro združiti vsebino celic v Excelu.

Več celic združite v eno celico s kodo VBA
Več celic združite v eno celico s programom Kutools za Excel, ne da bi izgubili podatke


Več celic združite v eno celico s kodo VBA

Naslednja koda VBA vam lahko pomaga združiti več celic v eno celico, kodo pa lahko uporabite z naslednjimi koraki:

1. Kliknite Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduliin v modul vnesite naslednjo kodo:

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. Nato kliknite doc-pomnoži-izračun-3 za izvedbo kode. Pojavi se pogovorno okno za izbiro obsega za delo z VBA. Oglejte si posnetke zaslona:

3. Kliknite Ok, se prikaže drugo pogovorno okno za določitev ločevalnika. Oglejte si posnetek zaslona:

doc kombinira vsebino celic 2

4. Kliknite Ok, nato se vsebina celice v izbranem obsegu združi v celico. Oglejte si posnetek zaslona:

doc kombinira vsebino celic 3


Več celic združite v eno celico s programom Kutools za Excel, ne da bi izgubili podatke

Če imate Kutools za Excel nameščen, lahko priročno kombinirate vsebino celic več stolpcev ali vrstic brez uporabe formul.

1. Izberite celice, v katere želite združiti podatke. In uporabite ta pripomoček s klikom Kutools > Spoji in razdeli > Združite vrstice, stolpce ali celice brez izgube podatkov.

2. v Združi stolpce ali vrstice v pogovornem oknu določite želene možnosti. Oglejte si posnetek zaslona:

  • (1.) Izberite Združite v eno celico pod Če želite združiti izbrane celice v skladu z naslednjimi možnostmi;
  • (2.) Določite ločilo za kombinirane podatke. Vsako vsebino lahko ločite s presledkom, nič, podpičjem ali določenim besedilom. Lahko pa tudi kombinirano vsebino prikažete v novi vrstici.

doc kombinira vsebino celic 5

3. Nato kliknite OK or Uporabi, vsi podatki v več celicah so bili združeni v eno celico. Oglejte si posnetek zaslona:

Opomba: Ta pripomoček lahko pomaga tudi pri kombiniranju celic izbranih stolpcev. Ime in priimek lahko združite v eno celico s polnim imenom, kot je prikazano spodaj.

Nato lahko vidite, da so imena in priimki združeni in se nahajajo v polnih imenskih celicah.

  Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Povezani članki


Predstavitev: združite / združite več celic v eno, ne da bi izgubili podatke

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

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