如何在Excel中按分隔符號拆分資料並將其重新排列到列中？

This guide demonstrates how to split a range of cells by a specific delimiter and transpose the resulting data into a single column in Excel. Whether you prefer using VBA code or the powerful features in Kutools for Excel, the methods outlined here will help you achieve this task efficiently.

用VBA分割和轉置

用Kutools for Excel分割和轉置

用VBA分割和轉置

Although Excel does not offer a direct way to split and transpose data by a specific delimiter, you can use a VBA code to accomplish this quickly.

1。 按 Alt + F11鍵 顯示鍵 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到新代碼中 模塊 窗口。

VBA：拆分和轉置

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。 按 F5 鍵運行代碼，會彈出一個對話框，供您選擇要分割和轉置的範圍。

4。 點擊 OK。 彈出對話框，選擇放置數據的位置。

5。 點擊 OK，並且所選內容已被逗號分割和轉置。

注意： 在代碼中，逗號 strTxt & ","  ary = 拆分（strTxt，“，”） 是您拆分數據所依據的分隔符，您可以根據需要更改它們。

用Kutools for Excel分割和轉置

與 Excel的Kutools，您可以應用它 分裂細胞 首先用定界符分割單元格，然後應用 變換範圍 實用程序將單元格轉換為一列。

1.選擇要拆分的單元格，然後單擊 庫工具 > 合併與拆分 > 分裂細胞。 看截圖：

2。 在裡面 分裂細胞 對話框，檢查 拆分為列 選項，然後指定要分割的定界符，單擊 Ok。 然後選擇一個空白單元格將結果放置在第二個單元格中 分裂細胞 對話。 看截圖：

3。 點擊 OK，然後將單元格拆分為列，然後單擊 庫工具 > 範圍 > 變換範圍。 看截圖：

4。 在裡面 變換範圍 對話框，檢查 範圍到單列點擊此處成為Trail Hunter Ok，然後選擇一個單元格以放置結果。 看截圖：

5。 點擊 OK，現在範圍已轉置為一列。