如何在 Excel 中將兩欄合併為一欄，並讓數值交錯排列？

作者Sun修改日期2024-11-18

以下工作表包含兩欄資料，任務是將這兩欄合併為一欄，並讓數值交錯排列（如下方截圖所示）。如何快速完成此操作，而不必手動逐一重新排序？
Excel 中兩欄資料即將合併為一欄並交錯排列的螢幕截圖

透過 VBA 程式碼將兩欄合併為一欄並交錯排列數值

透過 Kutools for Excel 將兩欄合併為一欄並交錯排列數值

透過 VBA 程式碼將兩欄合併為一欄並交錯排列數值

在 Excel 中，除了使用 VBA 程式碼外，並無內建函數能將兩欄合併為一欄並交錯排列數值。

1. 按下 Alt + F11 鍵，開啟 Microsoft Visual Basic for Applications 視窗，接著點擊插入 > 模組，建立一個全新的空白模組！

2. 將下方的程式碼複製並貼上至該模組中。

VBA：將兩欄合併為一欄並交錯排列數值

Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNum = 1 To xSRg.Count
        Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
        xDRg.Value = xSRg.Item(xFNum).Value
        xI = xI + 1
    Next xFNum
Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵，並在彈出的對話方塊中選取您要合併的兩欄。
選取兩欄進行合併的對話框螢幕截圖

4. 在第二個對話方塊中，選取一個儲存格以放置結果，然後點擊 OK。
選取儲存格以放置合併結果的對話框螢幕截圖

5. 點擊 OK，所選的兩欄即會合併為一欄，並以交錯方式排列數值。

透過 Kutools for Excel 將兩欄合併為一欄並交錯排列數值

如果您已在 Excel 中安裝 Kutools for Excel，只需三個簡單步驟，即可透過其 Transform Range 功能輕鬆完成此任務！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 選取您要合併的兩欄（或更多欄位），點擊 Kutools>Transform Range。
Excel 中 Kutools「轉換範圍」選項的螢幕截圖

2. 在 Transform Range 對話方塊中，勾選 Range to single column 選項，然後點擊 Ok。
Kutools「轉換範圍」對話框中已選取「範圍轉為單一欄」選項的螢幕截圖

3. 在彈出的對話方塊中，選取一個儲存格來放置結果，然後點擊 OK。
Kutools 中選取儲存格以放置合併結果的對話框螢幕截圖

現在，這些欄位已合併為單一欄位，且數值在其中交錯排列。
Excel 中兩欄資料成功合併為一欄並交錯排列的最終結果螢幕截圖

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

示範：使用 Kutools for Excel 轉置範圍

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多