Hoe celwaarden samen te voegen totdat een lege cel in een kolom wordt gevonden?

Ik heb bijvoorbeeld een lijst met waarden die enkele lege cellen bevat, en nu wil ik elke set gegevens tussen lege cellen samenvoegen tot een cel en de gecombineerde waarden in een andere kolom vermelden zoals in het volgende screenshot. Hoe kan ik cellen samenvoegen tot ik een lege cel in een kolom vind?
Voeg celwaarden samen totdat er een lege cel wordt gevonden in een kolom met VBA-code
Voeg celwaarden samen tot als een lege cel in een kolom wordt gevonden met Kutools for Excel
Voeg celwaarden samen totdat er een lege cel wordt gevonden in een kolom met VBA-code
Er is geen directe manier om een reeks cellen tussen lege cellen samen te voegen, maar u kunt de volgende VBA-code toepassen om ermee om te gaan. Ga als volgt te werk:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: celwaarden samenvoegen totdat een lege cel wordt gevonden
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 selecte 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 Ecel"
Exit Sub
End If
Set xSaveToRg = Application.InputBox("Please selecte 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 F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt aaneenschakelen, zie screenshot:
4. Dan klikken OK, en een ander promptvenster verschijnt, selecteer een cel om het aaneengeschakelde resultaat uit te voeren, zie screenshot:
5. En klik dan OK knop, en de kolomlijstgegevens worden aaneengeschakeld tussen de lege plekken, zie screenshot:
Voeg celwaarden samen tot als een lege cel in een kolom wordt gevonden met Kutools for Excel
Als je Kutools for Excel, een combinatie van zijn Transformeer bereik en Combineren functies, kunt u deze klus ook zo snel mogelijk afronden. De Transformeer bereik hulpprogramma kan u helpen bij het converteren van de enkele kolom naar een bereik, en de Combineren functie kan u helpen om het getransformeerde bereik samen te voegen tot een kolom.
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Na het installeren van Kutools for Excelgaat u als volgt te werk:
1. Selecteer de cellen die u wilt samenvoegen en klik op Kutools > RANGE > Transformeer bereik, zie screenshot:
2. In de Transformeer bereik dialoogvenster, vink aan Enkele kolom om te bereiken optie onder de Type transformerenEn selecteer Een lege cel scheidt records onder de Rijen per record, zie screenshot:
3. Dan klikken Ok, en er verschijnt een promptvenster om u eraan te herinneren een cel te selecteren om het resultaat uit te voeren, zie screenshot:
4. Klikken OK, en de gegevens met één kolom zijn door de lege cel geconverteerd naar meerdere rijen en kolommen, zie screenshot:
5. De geconverteerde gegevens staan in meerdere kolommen, dus u moet ze combineren in één kolom. Selecteer het gegevensbereik en klik op Kutools > Samenvoegen en splitsen > Combineer rijen, kolommen of cellen zonder gegevens te verliezen, zie screenshot:
6. In de Combineer kolommen of rijen dialoogvenster, doe de volgende opties:
(1.) Selecteer Combineer kolommen optie van de Om geselecteerde cellen te combineren volgens de volgende opties;
(2.) Geef vervolgens een scheidingsteken op waarvan u de aaneengeschakelde waarden wilt scheiden;
(3.) Selecteer hoe u met de gecombineerde cellen wilt omgaan. U kunt de originele gegevens behouden of verwijderen, en u kunt ook de gecombineerde cellen samenvoegen. Zie screenshot:
7. Klik na het voltooien van de instellingen op Ok or Solliciteer knop, zijn de cellen samengevoegd tot één kolom met een specifiek scheidingsteken, zie screenshot:
Download en gratis proefversie Kutools for Excel Nu!
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!








