Hoe cellen in Excel verticaal samenvoegen zonder gegevens te verliezen

Hugh West

16-10-2023 Excel Basis
  • Deel Dit
Hugh West

Een van de belangrijkste en meest gebruikte taken die we moeten uitvoeren tijdens het werken in Excel is het verticaal samenvoegen van cellen zonder gegevens te verliezen. Vandaag laat ik u zien hoe u cellen in Excel verticaal kunt samenvoegen zonder gegevens te verliezen.

Download Praktijk Werkboek

Cellen verticaal samenvoegen zonder gegevens te verliezen.xlsm

4 Eenvoudige methoden om cellen in Excel verticaal samen te voegen zonder gegevens te verliezen

Hier hebben we een dataset met de namen van enkele auteurs en hun boeken in een boekhandel genaamd Martin Bookstore.

Ons doel vandaag is de boeknamen van dezelfde auteur verticaal samen te voegen in één cel zonder gegevens te verliezen.

1. Voer samenvoegen en centreren uit in de Excel werkbalk om cellen in Excel verticaal samen te voegen zonder gegevens te verliezen.

Stap 1:

➤ Selecteer de eerste groep cellen die u wilt samenvoegen (De boeken van Charles Dickens in dit voorbeeld).

Stap 2:

Ga naar de Home> Samenvoegen & Centrum tool in de Excel toolbar onder de sectie genaamd Uitlijning .

Stap 3:

➤ Klik op het keuzemenu.

Selecteer uit de beschikbare opties Merge & Center .

Stap 4:

➤ Klik op Merge & Center .

➤ U ziet dat uw geselecteerde groep cellen is samengevoegd tot één cel, maar met alleen de waarde van de eerste cel (Great Dickens in dit voorbeeld).

Stap 5:

➤ U kunt dezelfde procedure herhalen voor de rest van de groep cellen om ze samen te voegen tot één cel.

Lees meer: Cellen samenvoegen en centreren in Excel

2. Ampersand (&) symbool gebruiken om cellen in Excel verticaal samen te voegen zonder gegevens te verliezen

De bovengenoemde methode voegt de groep cellen samen tot één enkele cel, maar voldoet niet volledig aan onze eis.

Het bewaart de waarde van alleen de eerste cel, niet van alle cellen.

Dat betekent dat het gegevens verliest.

Om de waarden van een groep cellen samen te voegen in één cel, kunt u een formule gebruiken die bestaat uit de Ampersand (&) symbool.

De formule voor de eerste groep cellen wordt:

=C4&", "&C5&", "&C6".

Let op:

  • Hier heb ik gebruikt komma's (,) tussen de boeknamen om er toonbaar uit te zien. Je kunt alles gebruiken wat je wilt.

Herhaal vervolgens dezelfde procedure voor alle groepen cellen.

3. Formule gebruiken om cellen in Excel verticaal samen te voegen zonder gegevens te verliezen

In plaats van de Ampersand (&) symbool, kunt u de CONCATENATE functie van Excel om een groep cellen samen te voegen tot één cel.

De formule om de eerste groep cellen samen te voegen wordt:

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

Let op:

  • Hier heb ik ook gebruikt komma's (,) tussen de boeknamen. Je kunt alles gebruiken wat je wilt.

Vervolgens kunt u deze formule gebruiken voor de restgroep van cellen om ze samen te voegen tot één cel.

4. VBA-codes uitvoeren om cellen in Excel verticaal samen te voegen zonder gegevens te verliezen

Alle bovengenoemde methoden werken perfect, maar toch voldoen ze niet volledig aan ons doel.

Wij willen een methode afleiden die met één klik alle groepen cellen samenvoegt tot één cel.

En ja, er zijn manieren om dit te doen. In dit deel zullen we een methode afleiden met behulp van een VBA code die alle groepen cellen zal samenvoegen tot enkele cellen op de gemakkelijkste manier.

Stap 1:

➤ Druk op ALT+F11 op uw toetsenbord. De VBA venster wordt geopend.

Stap 2:

➤ Ga naar de Plaats tabblad in het VBA-venster.

➤ Selecteer uit de beschikbare opties Module .

Stap 3:

➤ Een nieuw modulevenster genaamd "Module 1" gaat open.

➤ Voeg het volgende in VBA code in de module.

Code: 

 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 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 = i.out = "" End If Next i End Sub

Stap 4:

➤ Sla de werkmap op als Excel werkmap met macro's .

Stap 5:

➤ Ga terug naar uw werkmap en selecteer de gegevensverzameling (Zonder de Kolomkoppen ).

Stap 6:

➤ Druk op ALT+F8 op je toetsenbord.

➤ Een dialoogvenster genaamd Macro wordt geopend. Selecteer Samenvoegen_Rijen en klik op Ren .

Stap 6:

➤ U krijgt een waarschuwingsvenster dat u vertelt dat het samenvoegen van cellen alleen de waarde van de cel linksboven behoudt, en de andere waarden weggooit.

➤ Klik op OK .

Stap 7:

➤ U krijgt een paar keer hetzelfde waarschuwingsvenster. Klik op OK elke keer.

➤ Uiteindelijk vindt u al uw groepen cellen verticaal samengevoegd tot enkele cellen, zoals dit.

Conclusie

Met deze methoden kunt u cellen in Excel verticaal samenvoegen zonder gegevens te verliezen. Kent u een andere methode? Of hebt u vragen? Stel ze ons gerust.

Vorige post De SUMIFS-functie in Excel gebruiken (6 handige voorbeelden)
Volgende bericht Hoe getal omzetten naar woorden in Excel (4 geschikte manieren)

Hugh West is een zeer ervaren Excel-trainer en -analist met meer dan 10 jaar ervaring in de branche. Hij heeft een bachelor in Accounting en Finance en een master in Business Administration. Hugh heeft een passie voor lesgeven en heeft een unieke lesaanpak ontwikkeld die gemakkelijk te volgen en te begrijpen is. Zijn deskundige kennis van Excel heeft duizenden studenten en professionals over de hele wereld geholpen hun vaardigheden te verbeteren en uit te blinken in hun carrière. Via zijn blog deelt Hugh zijn kennis met de wereld en biedt hij gratis Excel-tutorials en online trainingen aan om individuen en bedrijven te helpen hun volledige potentieel te bereiken.