如何在 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. 點擊 確定，在第二個對話框中選擇一個單元格以放置結果。

5. 點擊 確定。現在，所選的兩列已經合併為一列，並且值交替排列。

使用 Kutools for Excel 將兩列合併為一列並交替顯示值

如果您已在 Excel 中安裝了 Kutools for Excel，其 轉換區域 功能可以在三個簡單步驟內完成此任務。

1. 選擇要合併的列（兩列或多列），點擊 Kutools > 轉換區域。

2. 在 轉換區域 對話框中，勾選 區域轉單列 選項，然後點擊 確定。

3. 在彈出的對話框中選擇一個單元格以放置結果。點擊 確定。

現在，這些列已經合併為一列，並且值在兩者之間交替排列。

示範：使用 Kutools for Excel 轉置區域