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

Author Sun Last modified 2025-08-23

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

使用 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

A screenshot of the VBA editor window with pasted code

3. 按下 F5 鍵，然後數據將被轉置並堆疊。請參閱截圖：
Screenshot of Excel showing transposed and stacked data after running VBA code

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

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

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

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

1. 選擇您使用的數據，點擊 Kutools > 區域 > 轉換表格維數。請參閱截圖：
Screenshot of Kutools Transpose Table Dimensions option in Excel

2. 在對話框中，勾選「二維表轉一維表」選項，並選擇要在「輸出區域(單個單元格)」文本框中放置轉置數據的單元格。請參見截圖：
Screenshot of Transpose Table Dimensions dialog with Cross table to list option selected

3. 點擊確定。現在該區域已被轉置並按列堆疊。
Screenshot of transposed and stacked data in Excel after using Kutools

Kutools for Excel - 超過 300 種必備工具，讓 Excel 功能更強大。永久免費享受 AI 功能！立即獲取

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

Kutools for Excel：超過 300 種實用工具任您使用！永久免費享受AI功能！立即下載！

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多