如何在 Excel 中每隔一欄分割欄位？

作者曉陽修改日期2025-10-10

當您在 Excel 中處理長列表時，可能會需要將單一欄位依交替列的方式分割成兩個獨立欄位，使每個新欄位各自包含原始資料中的每隔一列。舉例來說，若您有一份聯絡人清單或一系列交易記錄，並希望將列交替分配以建立兩份平衡的清單，手動執行這項任務在面對大型資料集時往往相當耗時且容易出錯。截圖清楚呈現了此挑戰：如何將單一欄位的資料依交替列拆分為兩個欄位。有效達成此操作不僅能讓您的資料結構更清晰，也將大幅簡化後續的分析與報表製作流程。

Excel 資料的截圖，每隔一列用於分割

Excel 提供了多種實用方法來解決此問題，每種方法皆適合不同的偏好與需求：

使用公式每隔一列拆分欄位

使用 VBA 程式碼每隔一列分割欄位

使用 Kutools for Excel 每隔一列分割欄位

接下來的章節將提供詳盡的逐步指南，說明如何運用公式、執行 VBA 巨集，以及善用 Kutools for Excel 工具達成目標。同時還收錄實用技巧、注意事項與疑難排解建議，助您避開常見錯誤，無論採用哪種方法都能順利完成任務。

使用公式每隔一列分割欄位

運用公式是將單一欄位依每隔一列拆分為兩個欄位的直觀做法，尤其適合需要動態解決方案（能隨原始資料變更自動更新）或希望避開巨集與增益集的情境。

以下是套用公式以完成此分割的步驟：

1. 在空白儲存格（例如 C2）中輸入下列公式，即可從您的源數據範圍（此處為）$A$2:$A$13）提取所有奇數列（第 1、3、5 列等）：

=INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1)

此公式透過 ROWS 函數計算列表中的位置，再乘以 2 並減 1，輕鬆擷取所有奇數列資料。
例如，當您將此公式輸入 C2 並向下拖曳時，即可取得 A2、A4、A6 等資料！

顯示用於將每隔一列分割成兩欄的公式的截圖

2. 輸入公式後，向下拖曳填滿控制點，直到出現錯誤值（例如）#REF!）。當公式參照的列超出您所限定的區域範圍時，就會產生這類錯誤，代表資料已到盡頭。建議在最後一個有效值出現後立即停止拖曳，並刪除錯誤儲存格，讓結果更加整潔清爽！

顯示向下拖曳公式以分割列之結果的截圖

3. 在 D2 儲存格中輸入下一個公式，以提取您的來源區域中所有偶數列（第 2、4、6 列等）：

=INDEX($A$2:$A$13,ROWS(D$1:D1)*2)

請以相同方式將此公式向下拖曳至 D 欄，填滿時將依序傳回 A3、A5、A7 等資料。
如有需要，請於結尾處移除所有錯誤訊息，讓結果更加整潔！

使用公式將資料每隔一列分割成兩欄的截圖

公式解法適用於列數為偶數的常規清單，或當您願意手動刪除多餘的錯誤值時。若您的清單包含空白列，請注意這些空白列也會依其原始位置被轉移；完成分割後，務必檢查是否有非預期的空白出現。

技巧與注意事項：請務必將儲存格參照調整至符合您的實際資料範圍。若原始數據大小有所變動，請重新檢查公式，避免產生錯誤。此外，拖曳公式時切勿超出預期的資料範圍！

附註：

若您遇到 #REF! 錯誤，表示公式試圖引用超出來源區域範圍的列。您可以使用 IFERROR 函數將其包裝起來，輕鬆隱藏這些錯誤，例如：
```
=IFERROR(INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1),"")
```
此寫法會以空白儲存格取代錯誤代碼，讓輸出結果更整潔美觀，特別適合向他人展示時使用！
若您使用的是 Excel 365 或 Excel 2021（含）以上版本，可運用較新的 FILTER 與 SEQUENCE 函數，在動態陣列中自動執行分割。您能使用類似以下的公式建立兩個範圍：
- ```
=FILTER(A2:A100,MOD(SEQUENCE(ROWS(A2:A100)),2)=1)
```
  適用於奇數列。
- ```
=FILTER(A2:A100,MOD(SEQUENCE(ROWS(A2:A100)),2)=0) 
```
  適用於偶數列。

使用 VBA 程式碼每隔一列分割欄位

若您偏好自動化處理、資料集較大，或經常執行此任務，VBA 巨集能高效地將欄位依交替列分割為兩個欄位。當您需要更精細的控制權，或需根據不同資料規模自訂處理流程時，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 執行巨集，系統將彈出提示方塊，要求您選取欲分割的資料區域。選取目標儲存格後，點選 OK。

VBA 中用於選擇資料範圍的輸入方塊截圖

4. 接著，系統會提示您選取分割結果的起始輸出儲存格。請指定一個空白儲存格作為列表的放置起點，以避免覆蓋既有資料。

輸出儲存格選擇提示的截圖

5. 點選 OK 後，巨集將從您指定的輸出儲存格開始，把原始欄位依交替列分割為兩個欄位。請立即檢查輸出結果是否完整且正確！

資料每隔一列分割成兩欄的截圖

此 VBA 解決方案兼具執行速度快與自動化優勢，特別適合處理重複性任務或大型資料集。然而，為避免資料遺失，請務必在執行巨集前先儲存您的工作內容——若輸出儲存格選擇不當，VBA 操作可能會覆寫既有資料。若您遇到錯誤或非預期結果，請重新檢查所選區域，並確認合併儲存格或隱藏列是否對結果造成影響。

提示：若您的資料集包含公式或特殊格式，請注意巨集僅會複製顯示值，而不保留儲存格格式。分割後，請依需求進行調整。

使用 Kutools for Excel 每隔一列分割欄位

若您希望採用比公式或 VBA 更有效率的方法，Kutools for Excel 的「轉換區域」工具提供了一種便捷方式，可輕鬆實現每隔一列分割欄位。整個流程大幅簡化，非常適合偏好圖形介面、且希望無需手動設定即可快速取得結果的使用者！

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

安裝 Kutools for Excel 後，請執行下列步驟：

1. 選取 Excel 中欲分割為兩個欄位（每隔一列交替）的資料範圍。為獲得最佳效果，請確保所選範圍內不含合併儲存格或隱藏列。

2. 在功能區上，前往 Kutools> 範圍> 轉換區域，即可開啟工具對話方塊。

功能區中 Kutools 索引標籤的「轉換範圍」選項截圖

3. 在「轉換區域」對話方塊中，於單列轉區域下方的轉換類型區段，選擇每筆記錄的列數，並選取固定值，然後輸入 2. 此設定將指示 Kutools 將每兩列整理為一筆橫向記錄（可視為分割為兩個欄位時，每欄各佔一列）。

用於分割每隔一列的「轉換範圍」對話框設定截圖

4. 點選 Ok 按鈕後，系統將提示您選擇分割結果的放置位置。請務必選取空白儲存格，以免覆寫既有內容！

輸出儲存格選擇提示的截圖

5. 再次點選 OK，該工具將立即把您選取的清單依每隔一列分割為兩個欄位。

點擊以深入了解這項轉換區域工具。

Kutools for Excel 的解決方案，專為追求省時省力、經常需要處理資料重塑或列轉欄等任務的使用者量身打造，尤其適合不熟悉撰寫公式或 VBA 程式碼的人士，操作直覺又高效。

注意事項：在確認輸出儲存格前，務必確認有足夠空間容納結果。若原始清單較長，將分割資料輸出至既有儲存格可能導致資料遺失。

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

疑難排解與摘要建議：若分割結果不正確，請再次確認所選範圍與公式參照是否正確；同時檢查原始資料是否包含空白儲存格、合併儲存格，或可能影響分割的格式設定。執行任何 VBA 操作或使用 Kutools 等增益集前，務必先備份原始資料。使用公式解決方案時，可搭配 IFERROR 函數，獲得更乾淨的輸出結果。針對大型清單或重複性任務，建議透過 VBA 自動化處理，或使用 Kutools 以達成最高效率！

最佳 Office 生產力工具

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