如何將單一欄位中每 5 列（或 n 列）的資料轉置為多個欄位？

作者曉陽修改日期2025-04-18

在 Excel 中，將單一欄位中每 5 列（或任意 n 列）轉置為多個欄位，對於重新組織資料以利分析或製作報表極具實用價值。假設您在 A 欄中有一長串資料，現在希望將每 5 列轉置為一行多欄的格式——例如將 A1:A5 轉置至 C6:G6、A6:A10 轉置至 C7:G7，依此類推（如左側截圖所示）。此任務可透過多種方法實現，各有其優勢。以下將逐步詳細說明如何完成此操作。

將每 5 列（或 n 列）從單一欄位轉置為多個欄位

使用公式
使用強大工具－Kutools for Excel
使用 VBA 程式碼

使用公式將每 5 列（或 n 列）從單一欄位轉置為多個欄位

在 Excel 中，您可以套用下列公式，將每 n 列從單一欄位轉置為多個欄位，請依下列步驟操作：

1. 在您希望顯示結果的空白儲存格中，輸入下列公式。

=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))

注意：上述公式中，「A:A」是您要轉置的欄位參考，「A1」是該欄位的第一個儲存格，數字「5」代表資料將分佈的欄位數量，您可依需求調整。此外，清單的第一個儲存格必須位於工作表的第一列。

2. 接著向右拖曳填滿控點至五個儲存格，再繼續向下拖曳至所需範圍，直到出現 0 為止，請參閱截圖：

向右拖曳填滿控點至儲存格，然後繼續向下拖曳填滿控點至儲存格範圍，直到顯示 0 為止

使用 Kutools for Excel 將每 5 列（或 n 列）從單一欄位轉置為多個欄位

是否因需將 Excel 資料從單一欄位轉置為多個欄位而感到困擾？「Kutools for Excel」的「轉換區域」功能正是為解決您的問題而生！無論您是要每 5 列轉置一次，還是自訂列數，我們都能輕鬆滿足需求。彈性的列轉置功能讓您自由選擇轉置範圍，操作簡單快速，無需繁瑣步驟——只需點擊幾下，立即搞定！

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

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

1. 選取欄位中的資料，然後點擊「Kutools」>「範圍」>「轉換區域」，詳情請參閱截圖：

2. 在「轉換區域」對話方塊中，於「轉換類型」下選取「單列轉區域」，並在「每筆記錄的列數」下勾選「固定值」，然後於「固定值」欄位中輸入您希望轉置後的欄位數量，請參閱截圖：

3. 接著點擊「確定」按鈕，於彈出的對話框中選取一個儲存格以輸出結果，請參閱截圖：

4. 然後點擊「確定」按鈕，您的欄位資料就會像下方截圖一樣，每 5 列自動轉置一次：

使用 VBA 程式碼將每 5 列（或 n 列）從單一欄位轉置為多個欄位

若您無法順利套用公式，以下 VBA 程式碼也能助您一臂之力。

1. 按住「Alt」+「F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 點擊「插入」>「模組」，並將下列程式碼貼上至「模組」視窗中。

VBA 程式碼：將每 5 列（或 n 列）從單一欄位轉置為多個欄位：

Public Sub TransposeData()
'updateby Extendoffice
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. 貼上程式碼後，請按下「F5」鍵執行，系統將彈出提示方塊，提醒您選取要轉置的欄位，請參閱截圖：

4. 接著點擊「確定」，並在另一個彈出對話框中選取儲存格以放置結果，請參閱截圖：

5. 再點擊「確定」，欄位中的資料就會轉換為您所需的五個欄位，詳情請參閱截圖：

注意：上述程式碼中，您可以將數字「5」改為其他所需數值。

本文介紹三種高效方法，協助您在 Excel 中將每 5 列（或任意 n 列）從單一欄位轉置為多個欄位！各方法特色鮮明，無論您是 Excel 新手還是熟悉程式設計的進階使用者，都能輕鬆上手。想掌握更多 Excel 實用技巧？我們的網站提供數千篇教學文章，立即探索不容錯過！

最佳 Office 生產力工具

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