Salt la conținutul principal

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 perioadă de încercare gratuită (30 de zile) a acestui utilitar, 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 de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

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!

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