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

Cum se combină conținutul mai multor celule fără a pierde date în Excel?

Putem combina celule și conținutul acestora în Microsoft Excel frecvent. Cu toate acestea, aflați cel mai simplu mod de a combina conținutul celulei? Aici vom vorbi despre cum să combinați conținutul celulei în Excel ușor și rapid.

Combinați mai multe celule într-o singură celulă cu codul VBA
Combinați mai multe celule într-o singură celulă cu Kutools pentru Excel fără a pierde date


Combinați mai multe celule într-o singură celulă cu codul VBA

Următorul cod VBA vă poate ajuta să combinați mai multe celule într-o singură celulă și puteți aplica codul urmând pașii:

1. Clic Dezvoltator > Visual Basic, un nou Microsoft Visual Basic pentru aplicații fereastra va fi afișată, faceți clic pe Insera > Moduleși introduceți următorul cod în modul:

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. Apoi apasa doc-multiplicare-calcul-3 pentru a executa codul. Va apărea o casetă de dialog pentru a selecta un interval pentru a lucra cu VBA. Vedeți capturi de ecran:

3. Clic Ok, este afișat un alt dialog pentru a specifica separatorul. Vedeți captura de ecran:

doc combina conținutul celulei 2

4. Clic Ok, apoi conținutul celulei din intervalul selectat este combinat într-o celulă. Vedeți captura de ecran:

doc combina conținutul celulei 3


Combinați mai multe celule într-o singură celulă cu Kutools pentru Excel fără a pierde date

Dacă aveţi Kutools pentru Excel instalat, puteți combina conținutul celulei din mai multe coloane sau rânduri în mod convenabil, fără a utiliza formule.

1. Selectați celulele pe care doriți să le îmbinați. Și aplicați acest utilitar făcând clic pe Kutools > Merge & Split > Combinați rânduri, coloane sau celule fără a pierde date.

2. În Combinați coloane sau rânduri caseta de dialog, specificați opțiunile de care aveți nevoie. Vedeți captura de ecran:

  • (1.) Selectați Combinați într-o singură celulă în Pentru a combina celulele selectate conform următoarelor opțiuni;
  • (2.) Specificați un separator pentru datele combinate. Puteți separa fiecare conținut cu spațiu, nimic, punct și virgulă sau text specific. Și puteți afișa, de asemenea, conținutul combinat într-o nouă linie.

doc combina conținutul celulei 5

3. Apoi apasa OK or Aplică, toate datele din mai multe celule au fost îmbinate într-o singură celulă. Vedeți captura de ecran:

Notă: Acest utilitar poate ajuta și la combinarea celulelor coloanelor selectate. Puteți combina numele și prenumele într-o singură celulă completă, după cum se arată mai jos.

Apoi, puteți vedea numele și prenumele sunt combinate și localizate în celulele cu numele complet.

  Dacă doriți să aveți o încercare gratuită (30-zi) a acestei utilitati, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Articole pe aceeaşi temă


Demo: combinați / îmbinați mai multe celule într-una fără a pierde date


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab

Comentarii (7)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Foarte util, mulțumesc, mi-a luat ceva timp să-l găsesc, dar era exact ceea ce aveam nevoie. Notați în codul VBA dacă doriți să separați datele cu un punct și virgulă, virgulă sau alt caracter în câmpul "delim = " " ", puneți caracterul dvs. între ghilimele exemplu: delim = ";". Mulțumesc din nou.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc mult pentru cod. A fost de mare ajutor.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc foarte mult - a fost de mare ajutor!
Acest comentariu a fost redus la minimum de moderatorul de pe site
cum să îmbinați 2 celule de ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Acest comentariu a fost redus la minimum de moderatorul de pe site
Minunat! Ajută foarte mult! Mulțumesc foarte mult!
Acest comentariu a fost redus la minimum de moderatorul de pe site
cum repetați procesul dacă am 4 referințe diferite și trebuie să le combin una după alta
Acest comentariu a fost redus la minimum de moderatorul de pe site
Interogarea mea anterioară este despre acest vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String On Error Reluare Următorul 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, ce înseamnă aici, „8 „ & „2” se referă la
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL