如何在Excel中輕鬆快速地轉置範圍和堆棧數據？

例如，有一些數據按組顯示，現在我想轉置範圍並將數據堆疊在每一列中，如下圖所示。 在本文中，我將介紹Excel中有關此任務的方法。

使用VBA轉置和堆疊數據

使用“轉置表”維轉置和堆棧數據

使用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列中。

使用“轉置表”維轉置和堆棧數據

如果您想在不使用VBA代碼的情況下快速輕鬆地轉置範圍和堆棧數據，則可以應用 Excel的Kutools“ 轉置表尺寸 效用。

安裝後 Kutools for Excel，請執行以下操作:(立即免費下載Kutools for Excel！）

1.選擇您要使用的數據，然後單擊 庫工具 > 範圍 > 轉置台尺寸。 看截圖：

2.在對話框中，檢查 交叉表列出 選項，然後選擇要放置轉置數據的單元格 結果範圍（單個單元格） 文本框。 看截圖：

3。 點擊 Ok。 現在，範圍已轉置並堆疊在列中。

  轉置範圍和堆棧數據