如何在Excel中每隔一行拆分一列？
例如，我有一個很長的數據列表，現在，我想將該列每隔一行平均分成兩個列表，如下圖所示。在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. 點擊確定，列表數據已經每隔一行被拆分為兩列。
Kutools for Excel - 超過 300 種必備工具，讓 Excel 功能更強大。永久免費享受 AI 功能！立即獲取
最佳 Office 生產力工具
| 🤖 | Kutools AI 助手：以智能執行為基礎，革新數據分析 ｜生成程式碼 ｜ 創建自訂公式 ｜ 分析數據並生成圖表 ｜ 調用 Kutools 增強函數… |
| 熱門功能：查找、選取項目的背景色或標記重複值 ｜ 刪除空行 ｜ 合併列或單元格且不遺失數據 ｜ 四捨五入（免公式）... | |
| 高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找... | |
| 高級下拉列表：快速創建下拉列表 ｜依賴型下拉列表 ｜ 多選下拉列表... | |
| 列管理器：添加指定數量的列 ｜ 移動列 ｜ 切換隱藏列的顯示狀態 ｜ 比較區域及列... | |
| 精選功能：網格聚焦 ｜ 設計檢視 ｜ 增強編輯欄 ｜ 工作簿及工作表管理器 ｜ 資源庫（快捷文本） ｜ 日期提取器 ｜ 合併資料 ｜ 加密/解密儲存格 ｜ 按列表發送電子郵件 ｜ 超級篩選 ｜ 特殊篩選（篩選粗體/傾斜/刪除線...）... | |
| 15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表 類型（甘特圖等）｜40+ 實用 公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多 |
運用 Kutools for Excel，全面提升您的 Excel 技能，體驗前所未有的高效。 Kutools for Excel 提供超過300 項進階功能，讓您提升工作效率、節省時間。 點此尋找您最需要的功能...
Office Tab 為 Office 帶來分頁介面，讓您的工作更加輕鬆簡單
- 在 Word、Excel、PowerPoint 中啟用分頁編輯與閱讀。
- 在同一視窗的新分頁中打開與創建多份文件，而非開啟新視窗。
- 提升您的生產力50%，每日可幫您減少數百次鼠標點擊！
所有 Kutools 外掛，一次安裝
Kutools for Office 套裝整合了 Excel、Word、Outlook 和 PowerPoint 的外掛，外加 Office Tab Pro，非常適合需要跨 Office 應用程式協同作業的團隊。
- 全合一套裝 — Excel、Word、Outlook及 PowerPoint 外掛 + Office Tab Pro
- 一鍵安裝，一份授權 — 幾分鐘完成設置（支援 MSI）
- 協同運作更順暢 — Office 應用間無縫提升生產力
- 30 天全功能試用 — 無需註冊、無需信用卡
- 最超值 — 一次購買，節省單獨外掛費用