Hoe te splitsen op scheidingsteken en cellen te transponeren in Excel?
In dit artikel introduceer ik de manieren om een bereik op een specifiek scheidingsteken te splitsen en het vervolgens in Excel te transponeren zoals onderstaand screenshot. Als je in deze taak geïnteresseerd bent, ga dan naar onderstaande details.
Splitsen en transponeren met VBA
Splitsen en transponeren met Kutools voor Excel
Splitsen en transponeren met VBA
Er is geen directe manier om gegevens te splitsen en transponeren door een specifiek scheidingsteken, maar ik kan een VBA-code introduceren om u te helpen dit probleem snel op te lossen.1. druk op Alt + F11 toetsen om weer te geven Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module, en plak onderstaande code in het nieuwe Module venster.
VBA: splitsen en transponeren
Sub Vertical()
'UpdatebyExtendoffice20161125
Dim i As Long, strTxt As String
Dim startP As Range
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
i = 1
Application.ScreenUpdating = False
For Each yRg In xRg
If i = 1 Then
strTxt = yRg.Text
i = 2
Else
strTxt = strTxt & "," & yRg.Text
End If
Next
Application.ScreenUpdating = True
Set startP = Application.InputBox _
(Prompt:="paste range...", _
Title:="Kutools For Excel", Type:=8)
ary = Split(strTxt, ",")
i = 1
Application.ScreenUpdating = False
For Each a In ary
startP(i, 1).Value = a
i = i + 1
Next a
Application.ScreenUpdating = True
End Sub
3. druk op F5 toets om de code uit te voeren, verschijnt er een dialoogvenster waarin u een bereik kunt selecteren om te splitsen en te transponeren.
4. klikken OK. Er verschijnt een dialoogvenster om een locatie te selecteren om de gegevens te plaatsen.
5. klikken OK, en de selectie is opgesplitst en omgezet door komma's.
Splitsen en transponeren met Kutools voor Excel
met Kutools for Excel, kunt u zijn Gespleten cellen eerst om cellen op scheidingsteken te splitsen en vervolgens de Transformeer bereik hulpprogramma om de cellen in één kolom om te zetten.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na het installeren van Kutools voor Excel, doe het als volgt :(Gratis download Kutools voor Excel nu!)
1. Selecteer de cellen die u wilt splitsen en klik op Kutools > Samenvoegen en splitsen > Gespleten cellen. Zie screenshot:
2. In de Gespleten cellen dialoogvenster, vink aan Splitsen in kolommen optie, specificeer vervolgens het scheidingsteken dat u wilt splitsen op basis van, klik op Ok. En selecteer een lege cel om het resultaat in de tweede te plaatsen Gespleten cellen dialoog. Zie screenshot:
3. klikken OK, vervolgens zijn de cellen opgesplitst in kolommen en klikt u op Kutools > RANGE > Transformeer bereik. Zie screenshot:
4. In de Transformeer bereik dialoogvenster, vink aan Bereik tot enkele kolom, Klik Oken selecteer een cel om het resultaat te plaatsen. Zie screenshot:
5. klikken OK, is het bereik nu omgezet in één kolom.
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!