Una dintre cele mai importante și utilizate sarcini pe scară largă pe care trebuie să le îndeplinim în timp ce lucrăm în Excel este să fuzionăm celule pe verticală fără a pierde date. Astăzi vă voi arăta cum puteți fuziona celule în Excel pe verticală fără a pierde date.

Descărcați caietul de practică

4 Metode ușoare pentru a uni celulele în Excel pe verticală fără a pierde date

Aici avem un set de date cu numele unor autori și cărțile lor dintr-o librărie numită Martin Bookstore.

Obiectivul nostru de astăzi este de a unifica numele cărților aceluiași autor pe verticală într-o singură celulă, fără a pierde date.

1. Executați instrumentul Merge and Center din bara de instrumente Excel pentru a uni celulele din Excel pe verticală fără a pierde date

Pasul 1:

➤ Selectați primul grup de celule pe care doriți să le unificați (Cărțile lui Charles Dickens în acest exemplu).

Pasul 2:

➤ Mergeți la Acasă> Îmbinare & Centru din bara de instrumente Excel, în secțiunea numită Aliniere .

Pasul 3:

➤ Faceți clic pe meniul derulant.

➤ Dintre opțiunile disponibile, selectați Îmbinare & Centru .

Pasul 4:

➤ Faceți clic pe Îmbinare & Centru .

➤ Veți găsi grupul de celule selectat fuzionat într-o singură celulă, dar care conține doar valoarea din prima celulă (Marele Dickens în acest exemplu).

Pasul 5:

➤ Puteți repeta aceeași procedură pentru restul grupului de celule pentru a le unifica într-o singură celulă.

Citește mai mult: Cum să combinați și să centrați celulele în Excel

2. Folosiți simbolul Ampersandă (&) pentru a uni celulele din Excel pe verticală fără a pierde date

Metoda menționată mai sus contopește grupul de celule într-o singură celulă, dar nu îndeplinește pe deplin cerințele noastre.

Păstrează valoarea doar din prima celulă, nu din toate celulele.

Asta înseamnă că pierde date.

Pentru a unifica valorile dintr-un grup de celule într-o singură celulă, puteți utiliza o formulă care să cuprindă combinația Ampersandă (&) simbol.

Formula pentru primul grup de celule va fi:

Notă:

• Aici am folosit virgule (,) între numele cărților pentru a arăta prezentabil. Puteți folosi orice doriți.

În continuare, repetați aceeași procedură pentru toate grupurile de celule.

3. Folosiți formula pentru a îmbina celulele în Excel pe verticală fără a pierde date

În loc să folosiți Ampersandă (&) puteți utiliza simbolul Funcția CONCATENATE din Excel pentru a unifica un grup de celule într-o singură celulă.

Formula de fuziune a primului grup de celule va fi:

=CONCATENATE(C4,", ", ",C5,", ", ",C6)

Notă:

• Aici am folosit și virgule (,) între numele cărților. Puteți folosi orice doriți.

Apoi, puteți utiliza această formulă pentru restul grupului de celule pentru a le unifica într-o singură celulă.

4. Executați codurile VBA pentru a uni celulele din Excel pe verticală fără a pierde date

Toate metodele menționate mai sus funcționează perfect, dar totuși, nu ne îndeplinesc pe deplin scopul.

Dorim să obținem o astfel de metodă care va unifica toate grupurile de celule în celule unice cu un singur clic.

Și da, există modalități de a face acest lucru. În această secțiune, vom deriva o metodă care utilizează un VBA cod care va unifica toate grupurile de celule în celule unice în cel mai simplu mod posibil.

Pasul 1:

➤ Apăsați ALT+F11 pe tastatură. VBA se va deschide o fereastră.

Pasul 2:

➤ Mergeți la Introduceți din fereastra VBA.

➤ Dintre opțiunile disponibile, selectați Modul .

Pasul 3:

➤ O nouă fereastră de modul numită "Modulul 1" se va deschide.

➤ Introduceți următorul text VBA în modul.

Cod:

 Sub Merging_Rows() Dim out As Variant out = " Dim start As Variant start = 1 Dim ending As Variant ending = 1 Dim i As Variant Dim j As Variant For i = 2 To Selection.Rows.Count + 1 If Selection(i, 1) "" Or i = Selection.Rows.Count + 1 Then ending = i - 1 For j = start To ending If j = ending If j = ending Then out = out + Range(Selection(j, 2).Address).ValueElse: out = out + Range(Selection(j, 2).Address).Value + vbNewLine End If Next j Range(Selection(start, 2).Address) = out Range(Selection(start, 1).Address + ":" + Selection(ending, 1).Address).Merge Across:=False Range(Selection(start, 2).Address + ":" + Selection(ending, 2).Address).Merge Across:=False start = iout = "" End If Next i End Sub 

Pasul 4:

➤ Salvați registrul de lucru ca Caietul de lucru cu macrouri Excel .

Pasul 5:

➤ Întoarceți-vă la registrul de lucru și selectați setul de date (Fără Titluri de coloană ).

Pasul 6:

➤ Presa ALT+F8 pe tastatură.

➤ Apare o casetă de dialog numită Macro se va deschide. Selectați Îmbinarea rândurilor și faceți clic pe Rulați .

Pasul 6:

➤ Veți primi o casetă de avertizare care vă va spune că fuzionarea celulelor păstrează doar valoarea celulei din stânga-sus și elimină celelalte valori.

➤ Faceți clic pe OK .

Pasul 7:

➤ Veți primi aceeași casetă de avertizare de câteva ori. Faceți clic pe OK de fiecare dată.

➤ În cele din urmă, veți găsi toate grupurile de celule fuzionate vertical în celule unice, astfel.

Concluzie

Folosind aceste metode, puteți unifica celulele din Excel pe verticală fără a pierde date. Cunoașteți alte metode sau aveți întrebări? Nu ezitați să ne întrebați.