如何將每5行或n行從一列轉置到多列？

Author Xiaoyang Last modified 2025-08-23

在Excel中，將單列中的每5行或n行轉置到多列對於重新組織數據以進行分析或報告非常有用。假設您在A列中有很長的數據，現在您想將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的單元格範圍，見截圖：

drag the fill handle right to cells, and go on dragging the fill handle down to the range of cells until displays 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. 然後點擊“確定”，並在另一個彈出框中選擇一個單元格以放置結果，見截圖：

vba code to select one cell to put the result

5. 然後點擊“確定”，列中的數據已經轉換為您需要的五列，見截圖：

the data in the column is converted to five columns

注意：在上述代碼中，您可以將數字“5”更改為您需要的其他數字。

要在Excel中將每5行或n行從一列轉置到多列，本文介紹了三種有效的方法。這些方法中的每一種都提供了不同的方式來重新排列Excel中的數據，適應不同用戶對Excel工具和編程的熟悉程度。如果您有興趣探索更多Excel技巧和竅門，我們的網站提供了數千個教程。

最佳 Office 生產力工具

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