Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

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-3za 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 brezplačen (30-dnevni) preizkus 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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

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!
dno pisarniške mize
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jennifer · 5 years ago
    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
  • To post as a guest, your comment is unpublished.
    jennifer · 5 years ago
    how repeat the process if i have 4 different reference and need to combine them one after the other
  • To post as a guest, your comment is unpublished.
    TJ · 6 years ago
    Awesome! Greatly helps! Thank you so much!
  • To post as a guest, your comment is unpublished.
    priya · 7 years ago
    how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
  • To post as a guest, your comment is unpublished.
    Tom · 7 years ago
    Thanks very much - was a big help!
  • To post as a guest, your comment is unpublished.
    Romilla W · 8 years ago
    Thamks a lot for the code. Was very helpful.
  • To post as a guest, your comment is unpublished.
    Damon R · 8 years ago
    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.