How to transpose duplicate rows to columns in Excel?
Supposing you have a range of data in Excel, now, you would like to transpose the duplicate rows to multiple columns as following screenshot shown, do you have any good ideas to solve this task?
|Transform one column or row to a range or vice versa:
|With Kutools for Excel’s Transform Range feature, you can quickly convert a range of cells to a single row or column, you can also convert a single row or column to a range of cells. Read more about this feature...|
Unfortunately, there is no direct way for you to deal with it in Excel, but you can create a VBA code to solve it, please do as follows:
1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
VBA code: Transpose duplicate rows to multiple columns
Sub ConvertTable() 'Update 20150113 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. Then press F5 key to run this code, select the data range that you want to convert the duplicate rows to multiple columns in the popped out dialog, see screenshot:
4. Click OK, and select one cell where you want to put the result in the following dialog box, see screenshot:
5. And then click OK button, your selected data has been converted to follows:
Excel Productivity Tools
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
To post as a guest, your comment is unpublished.· 8 months agoThis works fine for me with different number of duplicates Brian. I only had a problem with the first duplicate showing twice on my output, but that was very minor. I only wish I knew how to make it copy the duplicate results into a comma delimited format instead of new columns for each one.
To post as a guest, your comment is unpublished.· 9 months agoOnly works if there's the same number of duplicates and call him a. It doesn't work at if have different numbers of duplicates.
To post as a guest, your comment is unpublished.· 2 years agoReally great. Saved me a lot of time
To post as a guest, your comment is unpublished.· 3 years agoI am so incredibly happy this worked. You are my hero!!!!
To post as a guest, your comment is unpublished.