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

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča 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 z miško!
dno pisarniške mize
Komentarji (7)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Zelo koristno, hvala, potreboval sem nekaj časa, da sem ga našel, vendar je bilo ravno tisto, kar sem potreboval. Upoštevajte v kodi VBA, če želite podatke ločiti s podpičjem, vejico ali kakšnim drugim znakom v polju "delim = " " ", postavite znak med narekovaje primer: delim = ";". Hvala še enkrat.
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala za kodo. Bilo je zelo koristno.
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala - v veliko pomoč!
Ta komentar je moderator na spletnem mestu minimiziral
kako združiti 2 celici npr.:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Ta komentar je moderator na spletnem mestu minimiziral
Čudovito! Zelo pomaga! Najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
kako ponoviti postopek, če imam 4 različne reference in jih moram združiti enega za drugim
Ta komentar je moderator na spletnem mestu minimiziral
moja prejšnja poizvedba se nanaša na to 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.Selection Set WorkRng) ", xTitleId, WorkRng.Address, Type:=8) Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Every Rng In WorkRng xOut = xOut & Rng.Value & Sigh Naprej z WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) Konec z Application.DisplayAlerts = True End Sub Between, kaj pomeni tukaj, "8 " & "2" se nanašata na
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije