如何在 Excel 中將每隔一列的資料移至欄位？

作者Sun修改日期2025-04-02

當您在 Excel 中處理資料（尤其是匯入或非結構化的資料集）時，經常會發現名稱與對應值以垂直方式排列在同一欄位中。為提升資料的可讀性與可用性，通常需要將其轉換為表格格式——也就是將每隔一列的內容移至相鄰的欄位。

使用公式將每隔一列移至欄位
使用 Kutools for Excel 將每隔一列移至欄位
使用 VBA 將每隔一列移至欄位

使用公式將每隔一列移至欄位

這是一種直接的方法，運用 Excel 的 INDEX 函數提取間隔欄位並以欄位形式呈現。若您希望將姓名置於一欄、年齡置於下一欄，請套用下列公式：

1. 在儲存格 C2 中輸入下列公式，然後視需要向下拖曳以填滿空白儲存格。此公式會從第 2 列（姓名）開始，提取每隔一列的資料。

=INDEX($A:$A, (ROW(A1)-1)*2 + 2)

提示：此公式透過將目前列號乘以 2，再加 2，以引用正確的位置。

2. 在儲存格 D2 中輸入下列公式，以提取交替資料，然後向下拖曳填滿儲存格。

 =INDEX($A:$A, (ROW(A1)-1)*2 + 3)

提示：此公式會從包含年齡的列（奇數列，從第 3 列開始）提取資料。

公式說明：

INDEX($A:$A, ...)：在 A 欄中查找並傳回指定列號的值。
ROW(A1)：傳回目前列號。在 A1 中會傳回 1；當您向下拖曳公式時，就會自動變為 A2（即 1+1），輕鬆實現連續編號！
(ROW(A1)-1)*2 + 2：此運算式用於計算要從 A 欄提取資料的列號。

因此，此公式會從 A2、A4、A6、A8……提取資料，也就是從第 2 列開始，每隔一列（每兩列）提取一次。

使用 Kutools for Excel 將每隔一列移至欄位

如果您偏好更直覺、無需公式的解決方案，Kutools for Excel 提供一項功能，能輕鬆將列轉置為欄位。

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

安裝 Kutools for Excel 後，請依照下列步驟操作：

按一下 Kutools > 範圍 > 轉換區域。
在轉換區域對話方塊中，設定下列操作：
- 選取您要移動每隔一列的範圍
- 勾選「單列轉區域」區段中的轉換類型。
- 接著，勾選「固定值」，並在「每筆記錄的列數」清單中選取或輸入 2.
- 最後，點擊「確定」按鈕。
在下列提示方塊中，選取一個儲存格以輸出結果，請參閱截圖：
按一下「確定」，Kutools 便會自動將每隔一列移至不同的欄位。

使用 VBA 程式碼將每隔一列移至欄位

若您經常需要執行此作業，VBA 巨集能自動化整個流程，讓操作更快速、更高效！

1. 同時按下鍵盤上的 Alt 與 F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 接著點選「插入」>「模組」，開啟新模組視窗，並將下列 VBA 程式碼貼上至該視窗中。

VBA：將每隔一列的資料移至欄位中。

Sub MoveRange()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
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 InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
    OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
    Set OutRng = OutRng.Offset(1, 0)
Next
End Sub

3. 按一下「執行」按鈕或按下鍵盤上的 F5 鍵，系統將彈出對話方塊，供您選取要移動的範圍。請參閱截圖：
使用公式提取欄中每隔一個儲存格

4. 接著按一下「確定」，系統將顯示另一個對話方塊，供您選取輸出結果的儲存格。請參閱截圖：
使用公式提取欄中每隔一個儲存格

5. 點擊「確定」，即可看到如下所示的結果：
使用公式提取欄中每隔一個儲存格

🎯 結論：

在 Excel 中將每隔一列移至欄位的每種方法各有優勢，視您的需求而定：

公式法：最適合小型資料集的快速一次性作業，無需額外工具；然而在處理大型區域時，效能可能下降。
Kutools for Excel：專為偏好簡單點擊操作、不願使用複雜公式或程式碼的使用者打造。Kutools 提供直覺易用的介面，讓您快速完成轉換。
VBA 巨集：最適合用於重複性作業與自動化處理，尤其適用於大型資料集。雖然需要具備基本的程式碼知識，卻能提供最大的彈性。

選擇最符合您需求的方法，無論您處理的是少量資料，還是需要針對大型資料集採用更具擴充性的解決方案。若您想深入掌握更多 Excel 密技，我們的網站提供數千篇教學文章，助您精通 Excel。

最佳 Office 生產力工具

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