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

在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))

2. 然後向右拖動填充柄至五個單元格，並繼續向下拖動填充柄至顯示0的單元格範圍，見截圖：

 使用Kutools for Excel將每5行或n行從一列轉置到多列

您是否對將Excel數據從一列轉置到多列感到沮喪？ “Kutools for Excel”的“轉換區域”功能就在這裡解決您的問題！無論您需要轉置每5行還是自定義行數，我們都能滿足您的需求。靈活的行轉換允許您自由選擇從一列轉置到多列的行數。它簡單快捷，無需複雜的操作——只需幾次點擊即可完成。

安裝“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. 然後點擊“確定”，列中的數據已經轉換為您需要的五列，見截圖：

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