如何在Excel中每隔一行拆分一列？

例如，我有一個很長的數據列表，現在，我想將該列每隔一行平均分成兩個列表，如下圖所示。在Excel中有沒有好的方法來處理這個任務呢？

使用公式每隔一行拆分一列

使用VBA代碼每隔一行拆分一列

使用Kutools for Excel每隔一行拆分一列

使用公式每隔一行拆分一列

以下公式可能幫助您快速將一列每隔一行拆分成兩列，請按照以下步驟操作：

1. 在空白單元格（例如C2）中輸入此公式：=INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1)，請參見截圖：

2. 然後向下拖動填充柄，直到單元格中顯示錯誤值，請參見截圖：

3. 接著在D2單元格中輸入另一個公式：=INDEX($A$2:$A$13,ROWS(D$1:D1)*2)，然後向下拖動填充柄，直到出現錯誤值，這樣列中的值就已經每隔一行被拆分為兩列，請參見截圖：

使用VBA代碼每隔一行拆分一列

如果您對VBA代碼感興趣，這裡我可以介紹一段代碼來幫助您解決這個問題。

1. 在Excel中按住ALT + F11鍵，這將打開Microsoft Visual Basic for Applications窗口。

2. 點擊插入 > 模組，然後在模組窗口中粘貼以下代碼。

VBA代碼：每隔一行將一列拆分為兩列

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3. 然後按下 F5鍵運行此代碼，會彈出一個提示框提醒您選擇要拆分的數據區域，請參見截圖：

4. 點擊確定後，另一個提示框會彈出讓您選擇一個單元格放置結果，請參見截圖：

5. 再次點擊確定，該列已經每隔一行被拆分為兩列，請參見截圖：

使用Kutools for Excel每隔一行拆分一列

如果您想學習更多新技巧，我可以推薦一款強大的工具——Kutools for Excel，其轉換區域功能可以快速將單行或單列轉換為多行多列，反之亦然。

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

1. 選擇要每隔一行拆分為兩列的列數據。

2. 然後點擊Kutools > 區域 > 轉換區域，請參見截圖：

3. 在轉換區域對話框中，選擇轉換類型下的單列轉區域，然後選擇固定值並在每條記錄的行數部分輸入2，請參見截圖：

4. 然後點擊確定按鈕，會彈出一個提示框提醒您選擇要輸出結果的單元格，請參見截圖：

5. 點擊確定，列表數據已經每隔一行被拆分為兩列。

點擊了解更多關於此轉換區域功能的信息。