Hoe celwaarden verticaal in Excel te splitsen?
In Excel kunt u de Tekst naar kolommen functie om de celwaarden horizontaal in meerdere kolommen te splitsen, maar het helpt u niet om de celinhoud verticaal in meerdere rijen te splitsen. En in dit artikel zal ik het hebben over enkele snelle manieren om de celwaarden verticaal in rijen te splitsen door een specifiek scheidingsteken in Excel.
Splits celwaarden verticaal in rijen door scheidingsteken met VBA-code
Splits celwaarden verticaal in rijen per scheidingsteken met Kutools voor Excel
Splits celwaarden verticaal in rijen door scheidingsteken met VBA-code
De volgende VBA-code kan u helpen om de celwaarden verticaal in rijen te splitsen door een willekeurig scheidingsteken, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: celwaarden verticaal in rijen splitsen op basis van een specifiek scheidingsteken
Sub splitvertically()
'updatebyExtendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xStr As String
Dim xOutArr As Variant
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
Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xStr = "" Then
xStr = xCell.Value
Else
xStr = xStr & ";" & xCell.Value
End If
Next
xOutArr = VBA.Split(xStr, ";")
xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub
3. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de celwaarden te selecteren die u verticaal wilt splitsen, zie screenshot:
4. En klik vervolgens op OK knop, verschijnt er een ander vak om u eraan te herinneren een cel te selecteren om het resultaat te plaatsen, zie screenshot:
5. Klikken OK knop, en de celwaarden zijn opgesplitst in een lijst door een scheidingsteken, zie screenshot:
Note: In de bovenstaande code kunt u de puntkomma wijzigen ; naar andere scheidingstekens die u nodig heeft.
Splits celwaarden verticaal in rijen per scheidingsteken met Kutools voor Excel
Kutools for Excel's Gespleten cellen functie is een krachtig hulpprogramma, het kan u helpen om celwaarden in meerdere kolommen of rijen te splitsen door middel van scheidingstekens als u dat nodig hebt.
| 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 in rijen wilt splitsen door middel van het specifieke scheidingsteken.
2. Dan klikken Kutools > Samenvoegen en splitsen > Gespleten cellen, zie screenshot:
3. In de Gespleten cellen dialoogvenster, selecteer Splitsen naar rijen onder de Type sectie, en controleer dan Overige van het Gesplitst door sectie en voer het scheidingsteken in waarop u de celwaarden wilt splitsen op basis van, zie screenshot:
4. En klik vervolgens op Ok knop, selecteer in het pop-outvenster een cel om het resultaat uit te voeren, zie screenshot:
5. En klik op OK knop, zijn de celwaarden opgesplitst in rijen op basis van het specifieke scheidingsteken zoals in de volgende schermafbeelding:
Download en gratis proef Kutools voor Excel nu!
Demo: celwaarden verticaal in rijen splitsen per scheidingsteken met Kutools voor Excel
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor 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-tabblad 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!
