如何在 Excel 中輕鬆快速地轉置區域並堆疊數據？

例如，有一些數據以組的形式顯示，現在想要轉置這些區域並將每列的數據堆疊起來，如下方截圖所示。本文將介紹在 Excel 中完成此任務的方法。

使用 VBA 轉置和堆疊數據

使用 Kutools 的「轉換表格維數」功能轉置和堆疊數據

使用 VBA 轉置和堆疊數據

您可以應用 VBA 程式碼來轉置和堆疊數據。

1. 選擇除列標題外的數據，然後按下 Alt + F11 鍵以啟動 Microsoft Visual Basic for Applications 視窗。

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

VBA：轉置和堆疊數據

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. 按下 F5 鍵，然後數據將被轉置並堆疊。請參閱截圖：

注意： 在 VBA 程式碼中，A 表示將轉置後的數據放置在當前工作表的 A 列，並替換 A 列中的原始數據。

使用 Kutools 的「轉換表格維數」功能轉置和堆疊數據

如果您想快速且輕鬆地轉置區域並堆疊數據而無需使用 VBA 程式碼，可以應用 Kutools for Excel 的「轉換表格維數」工具。

1. 選擇您使用的數據，點擊 Kutools > 區域 > 轉換表格維數。請參閱截圖：

2. 在對話框中，勾選「二維表轉一維表」選項，並選擇要在「輸出區域(單個單元格)」文本框中放置轉置數據的單元格。請參見截圖：

3. 點擊 確定。現在該區域已被轉置並按列堆疊。

演示：使用 Kutools 的「轉換表格維數」功能轉置區域並堆疊數據