如何在Excel中將每隔一行移動到列？

Author Sun Last modified 2025-08-23

move every other row to column sample data

在Excel中處理數據時，特別是導入的或非結構化的數據集，您可能會經常發現名字和相關值垂直排列在一列中。為了使這些數據更易讀且可用，通常需要將其轉換為表格格式——將每隔一行移動到列中。

使用公式將每隔一行移動到列
使用Kutools for Excel將每隔一行移動到列
使用VBA將每隔一行移動到列

使用公式將每隔一行移動到列

這是一種簡單的方法，利用Excel的INDEX函數提取交替行並將其顯示為列。如果您想將名字轉換為一列，年齡轉換為下一列，請應用以下公式：

1. 在C2單元格中，輸入以下公式到空白單元格中，然後根據需要向下拖動公式。該公式從第2行開始獲取每隔一行的值（名字）。

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

提示：此公式通過將當前行號乘以2然後加2來引用正確的位置。

extract every other cell in a column with formula

2. 在D2單元格中，輸入以下公式以提取替代數據，向下拖動公式填充單元格。

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

提示：此公式從包含年齡的行（從第3行開始的奇數行）中獲取值。

extract every other cell in another column with formula

公式解釋：

INDEX($A:$A, ...)：查看A列並返回特定行號的值。
ROW(A1)：返回當前行號。在A1中，它返回1。當您向下拖動公式時，它變成A2（第2行），A3（第3行）等。
(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. 同時按下鍵盤上的F11 + Alt鍵打開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鍵，彈出對話框供您選擇要移動的範圍。參見截圖：
extract every other cell in a column with formula

4. 然後點擊“確定”以顯示另一個對話框以選擇單元格輸出結果。參見截圖：
extract every other cell in a column with formula

5. 點擊“確定”，您可以看到如下所示的結果：
extract every other cell in a column with formula

🎯 結論：

在Excel中將每隔一行移動到列的每一種方法都有其自身的優勢，具體取決於您的需求：

公式方法：最適合快速、一次性的小數據集任務。無需額外工具，但對於大範圍數據可能會變慢。
Kutools for Excel：非常適合偏好基於點擊的簡單解決方案而不涉及復雜公式或編碼的用戶。Kutools提供了用戶友好的界面以進行快速轉換。
VBA宏：自動化和重複性任務的最佳選擇，特別是針對大型數據集。需要基本的編程知識，但提供了最大的靈活性。

選擇適合您需求的方法，無論您是在處理小數據集還是需要更大規模的解決方案來處理更大的數據集。如果您有興趣探索更多Excel技巧和竅門，我們的網站提供了成千上萬的教程，幫助您掌握Excel。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多