如何在Excel中將交叉表表（二維表）轉換為列表？

如何在Excel中將交叉表表（二維表）轉換為列表？

您知道如何在Microsoft Excel中將交叉表（二維表）轉換為列表表（一維表）嗎？ 由于某些原因，您可能需要將表格（帶有行標題和列標題）轉換為Excel中的平面列表。 以下技巧可幫助您輕松快速地將交叉表轉換為平面列表：

使用VBA將交叉表轉換為Excel中的列表 將交叉表轉換為 Excel 中的列表 Kutools for Excel

假設您有一個交叉表，需要將其轉換為列表，如下所示。

交叉表（帶有行標題和列標題） 列表表（一維表） 使用VBA將交叉表轉換為Excel中的列表

下面的VBA宏可以幫助您快速將活動工作表中的所有交叉表轉換為平面列表。

步驟1：按住 其他 + F11 鍵，然后打開Microsoft Visual Basic for Applications窗口。

步驟2：點擊 插頁 > 模塊，然后將以下宏粘貼到“模塊窗口”中。

VBA在轉置交叉表上列出：

子ConvertTableToList（） Const TEST_COLUMN為String =“ A” 我只要久，我只要久Dim iLastRow只要長Dim iLastCol只要應用程序.ScreenUpdating = False使用ActiveSheetiLastRow = .Cells（.Rows.Count，TEST_COLUMN）.End（xlUp）.Row對于i = iLastRow至2步驟-1iLastCol = .Cells（i，.Columns.Count）.End（xlToLeft）.Column對于j = iLastCol到3步驟-1.rows（i +1）。插入.Cells（i + 1，2）.Value = .Cells（i，j）.Value.Cells（i，j）.Value =“”下面j個接下來，我.rows（1）。刪除結束Application.ScreenUpdating =真END SUB

步驟3：點擊 F5 運行此宏的鍵。

然后，您將看到轉換后的列表，如以下屏幕截圖所示：

請注意：

1.此VBA宏會丟失原始表的某些數據，例如標題或其他數據。 在這種情況下，標頭（名稱，等級和班級）將丟失。

2.您可以更改As String =“ A”，以滿足您的需要。 例如，如果交叉表在E列中說明，則應改為“ A”中的“ E”。

3.如果工作表中還有其他數據，則轉換交叉表后，有時列表中的數據將是錯誤的。

將交叉表轉換為 Excel 中的列表 Kutools for Excel

如果你有 Kutools for Excel 安裝好后，就可以使用它了 轉置臺尺寸 快速將交叉表轉換為平面列表的工具。

Kutools for Excel 包括300多個便捷的Excel工具。 30天免費試用，不受限制。 立即獲取.

步驟1：選擇要將其轉換為列表的表。

步驟2：點擊 Kutools >修改 > 轉置表尺寸。 請參見以下屏幕截圖：

步驟3：在“轉置表格尺寸”對話框中，選中 交叉表列出 選項，然后選擇 結果范圍 點擊 按鈕。

步驟4：點擊 OK 按鈕。

然后，您將看到原始表轉換為平面列表，如以下屏幕截圖所示：

轉置臺尺寸 也可以將列表轉換為交叉表。 有關更多信息，請訪問 轉置臺尺寸.

相關文章： 將平面列表轉換為二維交叉表