How to easily and quickly transpose range and stack data in Excel?
For instance, there are some data displayed in groups, and now I want to transpose the range and stack the data in each column, as shown in the screenshot below. In this article, I will introduce the methods on this task in Excel.
Transpose and stack data with VBA
Transpose and stack data with Kutools' Transpose Table Dimension
Transpose and stack data with VBA
You can apply a VBA code to transpose and stack data.
1. Select data except column headers, and press Alt + F11 keys to enable Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste below code to the Module.
VBA: Transpose and Stack data
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. Press F5 key, and then the data have been transposed and stacked. See screenshot:
Note: In the VBA code, A indicates to place the transpose data in column A of the active sheet and replace the original data in column A.
Transpose and stack data with Kutools' Transpose Table Dimension
If you want to quickly and easily transpose range and stack data without VBA code, you can apply Kutools for Excel’s Transpose Table Dimension utility.
1. Select the data you use, click Kutools > Range > Transpose Table Dimensions. See screenshot:
2. In the dialog, check Cross table to list option, and select a cell you want to place the transposed data in Results range (single cell) textbox. See screenshot:
3. Click Ok. Now the range has been transposed and stacked in columns.
Kutools for Excel - Supercharge Excel with over 300 essential tools. Enjoy permanently free AI features! Get It Now
Demo: Transpose Range and Stack Data with Kutools' Transpose Table Dimension
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!