如何在 Excel 中將重複的行轉置為列？

假設您在 Excel 中有一個數據範圍，現在，您希望將重複的行轉置為多列，如下方截圖所示，您有什麼好主意來解決這個問題嗎？

使用 VBA 程式碼將重複的行轉置為列

使用 VBA 程式碼將重複的行轉置為列

遺憾的是，在 Excel 中沒有直接的方法可以處理它，但您可以創建一個 VBA 程式碼來解決這個問題，請按照以下步驟操作：

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗背景色。

2. 點擊 插入 > 模組，然後在模組視窗中粘貼以下程式碼。

VBA 程式碼：將重複的行轉置為多列

Sub ConvertTable()
'Updateby Extendoffice
Dim xArr1 As Variant
Dim xArr2 As Variant
Dim InputRng As Range, OutRng As Range
Dim xRows As Long
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")
xArr1 = InputRng.Value
t = UBound(xArr1, 2): xRows = 1
With CreateObject("Scripting.Dictionary")
    .CompareMode = 1
    For i = 2 To UBound(xArr1, 1)
        If Not .exists(xArr1(i, 1)) Then
            xRows = xRows + 1: .Item(xArr1(i, 1)) = VBA.Array(xRows, t)
            For ii = 1 To t
                xArr1(xRows, ii) = xArr1(i, ii)
            Next
        Else
            xArr2 = .Item(xArr1(i, 1))
            If UBound(xArr1, 2) < xArr2(1) + t - 1 Then
                ReDim Preserve xArr1(1 To UBound(xArr1, 1), 1 To xArr2(1) + t - 1)
                For ii = 2 To t
                    xArr1(1, xArr2(1) + ii - 1) = xArr1(1, ii)
                Next
            End If
            For ii = 2 To t
                xArr1(xArr2(0), xArr2(1) + ii - 1) = xArr1(i, ii)
            Next
            xArr2(1) = xArr2(1) + t - 1: .Item(xArr1(i, 1)) = xArr2
        End If
    Next
End With
OutRng.Resize(xRows, UBound(xArr1, 2)).Value = xArr1
End Sub

3. 然後按 F5 鍵運行程式碼，在彈出的對話框中選擇要將重複行轉換為多列的資料區域，參見截圖：

4. 點擊 確定，並在以下對話框中選擇一個單元格放置結果，參見截圖：

5. 然後點擊 確定 按鈕，您選擇的資料已經被轉換如下：

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

如何將列和行轉置/轉換為單行？

如何將列和行轉置/轉換為單列？

如何在 Excel 中將單列轉置/轉換為多列？