Hoe voegt u celwaarden samen totdat een lege cel wordt aangetroffen in een kolom in Excel?
Stel dat ik bijvoorbeeld een lijst met waarden heb die enkele lege cellen bevat, en ik wil elke reeks gegevens tussen die lege cellen samenvoegen in één cel, met de gecombineerde waarden weergegeven in een andere kolom—zoals in de onderstaande schermafbeelding. Hoe kan ik cellen samenvoegen totdat een lege cel wordt aangetroffen in een kolom?
Celwaarden samenvoegen totdat een lege cel wordt aangetroffen in een kolom met VBA-code
Celwaarden samenvoegen totdat een lege cel wordt aangetroffen in een kolom met Kutools voor Excel
Celwaarden samenvoegen totdat een lege cel wordt aangetroffen in een kolom met VBA-code
Er is geen directe manier om een reeks cellen tussen lege cellen samen te voegen, maar met de volgende VBA-code lost u dit eenvoudig op. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: celwaarden samenvoegen totdat een lege cel wordt aangetroffen
Sub Concatenatecells()
'updateby Extendoffice
Dim xRg As Range
Dim xSaveToRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xTStr As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "the selected range is more than one column", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xSaveToRg = Application.InputBox("Please select output cell:", "Kutools for Excel", , , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
Set xSaveToRg = xSaveToRg.Cells(1)
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell <> "" Then
xTStr = xTStr & xCell & " "
Else
xSaveToRg.Value = xTStr
Set xSaveToRg = xSaveToRg.Offset(1)
xTStr = ""
End If
Next
If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
Application.ScreenUpdating = True
End Sub
3. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren dat u wilt samenvoegen, zie schermafbeelding:
4. Klik daarna op OK. Vervolgens verschijnt er een nieuw dialoogvenster waarin u wordt gevraagd een cel te kiezen om het samengevoegde resultaat weer te geven, zie schermafbeelding:
5.Klik vervolgens op de knop OK, en de Kolommen-gegevens worden samengevoegd tussen de lege cellen, zie schermafbeelding:
Celwaarden samenvoegen totdat een lege cel wordt aangetroffen in een kolom met Kutools voor Excel
Als u Kutools voor Excel hebt, kunt u met de functies Bereik transformeren en Samenvoegen deze taak in een handomdraai afronden. Met het hulpprogramma Bereik transformeren converteert u een enkele kolom naar een bereik, en met de functie Samenvoegen voegt u het getransformeerde bereik weer samen tot één kolom.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1.Selecteer de cellen die u wilt samenvoegen en klik op Kutools>Bereik>Bereik transformeren, zie schermafbeelding:
2. In het dialoogvenster Bereik transformeren vinkt u de optie Enkele kolom naar bereik aan onder Transformeertype en selecteert u vervolgens Gescheiden door spaties onder Rijen per record. Zie schermafbeelding:
3.Klik vervolgens op Ok, waarna een dialoogvenster verschijnt waarin u wordt gevraagd een cel te selecteren voor het weergeven van het resultaat, zie schermafbeelding:
4. Klik op OK en de gegevens uit één kolom worden automatisch omgezet naar meerdere rijen en kolommen op basis van de lege cellen. Zie de schermafbeelding:
5. De omgezette gegevens staan verspreid over meerdere kolommen en moeten daarom worden samengevoegd tot één kolom. Selecteer het gegevensbereik en klik op Kutools > Samenvoegen en splitsen > Rijen/kolommen/cellen samenvoegen en waarden behouden, zie schermafbeelding:
6. Voer in het dialoogvenster Kolommen samenvoegen of rijen de volgende instellingen uit:
(1.) Selecteer de optie Kolommen samenvoegenin het veld Het geselecteerde bereik samenvoegen op de volgende manier;
(2.) Geef vervolgens aan Scheidingsteken waarmee u de samengevoegde waarden wilt scheiden;
(3.) Kies hoe u de gecombineerde cellen wilt verwerken: behoud of verwijder de oorspronkelijke gegevens, of gebruik de optie ‘Deze cellen samenvoegen’. Zie schermafbeelding:
7. Nadat u de instellingen hebt voltooid, klikt u op de knop Ok of Toepassen. De cellen worden dan samengevoegd tot één kolom met een specifiek scheidingsteken. Zie schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins