如何在 Excel 中按分隔符拆分數據並將其重新排列到一列中？

Author Sun Last modified 2025-08-23

split data by delimiter and rearrange it into a column

在使用 Excel 時，經常會遇到包含多個由逗號、分號或其他分隔符分開的值的單元格。如果需要按照特定分隔符拆分一系列這樣的單元格，並將所有結果值合併到一個單列中（如下圖所示），有一些高效的方法可以實現這一操作，以更好地組織和分析數據。

按分隔符拆分數據並將其重新排列到一列中

通過使用公式（Excel 365）
通過使用 Kutools for Excel
通過使用 VBA 程式碼

使用公式（Excel 365）按分隔符拆分數據並將其重新排列到一列中

在 Excel 365 中，我們可以通過現代函數（如 TEXTSPLIT 和 TEXTJOIN 函數）動態地實現這種轉換。

點擊要放置結果的單元格，輸入以下公式，然後按下 Enter 鍵。含有逗號分隔文字字符串的單元格將立即被轉換為列表。請參見截圖：

=TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ", TRUE, A2:A5), ", "))

split data by delimiter and rearrange it into a column with formula

此公式的解釋：

TEXTJOIN(",", TRUE, A2:A5)：將 A2:A5 中的所有值合併成一個以逗號分隔的文字字符串。
TEXTSPLIT(..., ",")：在每個逗號位置將合併的文字字符串拆分成不同的值。
TRANSPOSE(...)：將生成的行值轉換為垂直列。

使用 Kutools for Excel 按分隔符拆分數據並將其重新排列到一列中

對於使用舊版 Excel（如 2016/2019 等缺乏 TEXTSPLIT 功能的版本）的用戶，Kutools for Excel 的「拆分到多行」功能提供了一個理想的解決方案。該功能允許您根據特定分隔符快速將單元格內容拆分到單列中，節省您的時間和精力。

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

安裝 Kutools for Excel 後，請按照以下步驟操作：

點擊 Kutools > 合併與分割 > 拆分到多行，請參見截圖：
在 拆分到多行 對話框中，指定以下操作：
- 選擇要拆分的單元格；
- 在分隔依據部分，選擇其他，然後輸入您的分隔符（例如，逗號和空格）來定義單元格內容應如何拆分；
- 最後，點擊確定按鈕。

結果：選定的單元格已根據指定的分隔符拆分為一列。
split data by delimiter and rearrange it into a column with kutools

📝 注意：此方法會直接在源區域內拆分數據，因此建議在使用前先複製並備份原始數據。

使用 VBA 程式碼按分隔符拆分數據並將其重新排列到一列中

這裡，我們將引導您如何使用 VBA 按分隔符拆分單元格內容並將結果重新排列到一列中。

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

2. 點擊插入 > 模組，並將以下程式碼粘貼到新的模組視窗中。

VBA：拆分和轉置

Sub Vertical()
'Updateby Extendoffice
    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 鍵運行程式碼，彈出一個對話框讓您選擇要拆分和轉置的範圍。
vba code to select the data list

4. 點擊確定。彈出另一個對話框供您選擇放置數據的位置。
vba code to select a cell to lit the result

5. 點擊確定，所選內容已經根據逗號進行了拆分和轉置。
split data by delimiter and rearrange it into a column by vba code

注意：在程式碼中，strTxt & "," 和 ary = Split(strTxt, ",") 中的逗號是用於拆分數據的分隔符，您可以根據需要更改它們。

🔚 結論

所有方法都能有效解決拆分帶分隔符數據的核心問題，最佳選擇取決於您的技術熟悉程度和具體需求。

對於大多數 Excel 365 用戶來說，公式方法提供了最平衡的功能和可維護性。
對於非程式設計師進行的頻繁且複雜的轉換，Kutools 是理想之選。
對於企業環境中的定制化、自動化解決方案，VBA 提供了最大的控制權。

根據您的具體需求選擇適當的方法。如果您有興趣探索更多 Excel 技巧，我們的網站提供了數千個教程來幫助您掌握 Excel。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多