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

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

使用VBA轉置和堆疊數據

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

使用VBA轉置和堆疊數據

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

1.選擇除列標題之外的數據，然后按 Alt + F11鍵 啟用鍵 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊.

VBA：轉置和堆棧數據

Sub ConvertTableToList()UpdatebyExtendoffice20161121Const TEST_COLUMN As String = "A"Dim i As Long, j As LongDim iLastRow As LongDim iLastCol As LongApplication.ScreenUpdating = FalseWith ActiveSheetiLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).RowFor i = iLastRow To 2 Step -1iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).ColumnFor j = iLastCol To 3 Step -1.Rows(i + 1).Insert.Cells(i + 1, 2).Value = .Cells(i, j).Value.Cells(i, j).Value = ""Next jNext i.Rows(1).DeleteEnd WithApplication.ScreenUpdating = TrueEnd SubCopy

3。 按 F5

鍵，然后將數據轉置并堆疊。 看截圖：

請注意： 在VBA代碼中，A表示將轉置數據放置在活動工作表的A列中，并替換原始數據在A列中。

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

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

Kutools for Excel, 與超過 300 方便的功能，使您的工作更加輕松。免費全功能 30 天

安裝后 Kutools for Excel, 請按以下步驟:( Kutools for Excel 現在！）

1.選擇您要使用的數據，然后單擊 Kutools > Range > 轉置臺尺寸

。 看截圖：

2.在對話框中，檢查 交叉表列出 選項，然后選擇要放置轉置數據的單元格 結果范圍（單細胞）

文本框。 看截圖：

3。 點擊 Ok

。 現在，范圍已轉置并堆疊在列中。

轉置范圍和堆棧數據

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel