The Excel følgende VBA-kode kan hjelpe deg med å konvertere flere kommaseparert celleverdier til en kolonne, kan du gjøre som følger:?
1. Hold nede ALT + F11-tastene i Excel, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende makroen i modulen Window
VBA-kode. Konverter kommaseparert tekststreng til rader eller liste
Sub RedistributeCommaDelimitedData () 'Updateby Extendoffice 2015924 Dim xArr () As String Dim xAddress As String Dim Rg Som Range Dim Rg1 som Range On Error Resume Next xAddress = Application.ActiveWindow.RangeSelection.Address Set Rg = Application.InputBox ("velg dataområdet:", "Kutools for Excel", xAddress,,,,, 8) Hvis rg Er Nothing Then Exit Sub Sett rg = Application.Intersect (rg, Rg.Parent.UsedRange) Hvis rg Er Ingenting Deretter Exit Sub Set Rg1 = Application.InputBox ("velg output celle:", "Kutools for Excel",, ,,,, 8) Hvis Rg1 Er Ingenting Deretter Exit Sub xArr = Split (Delta (Application.Transpose (Rg.Value), ","), ",") Rg1.Resize (UBound (xArr) + 1) = Application .Transpose (xArr) Rg1.Parent.Activate Rg1.Resize (UBound (xArr) + 1) .SelectEnd Sub3. Deretter trykker F5 for å kjøre denne koden, i spratt ut dialogboksen velger dataområdet som du vil konvertere, se skjermbilde:
4. Og klikk OK, i den følgende dialogboksen angir en celle der du vil utgang resultatet, se skjermbilde:
5. Klikk OK, skilles det valgte komma celleverdier har blitt omgjort til en liste med rader. Se skjermbilde: