如何列出活頁簿中的所有資料透視表？

作者曉陽修改日期2024-08-05

假設您有一個包含多個資料透視表的大型活頁簿，現在想列出其中所有的資料透視表，可行嗎？當然可以！本文提供的下列 VBA 程式碼將助您輕鬆達成。詳情請參閱下方文章。

使用 VBA 程式碼從活頁簿中列出所有資料透視表

使用 VBA 程式碼從活頁簿中列出所有資料透視表

下列 VBA 程式碼可協助您快速列出所有資料透視表的名稱及其關鍵屬性，包括源數據範圍、所在工作表名稱、上次重新整理日期等。

1. 開啟您要列出所有資料透視表的活頁簿。

2. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

3. 按一下插入> 模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：從活頁簿中列出所有資料透視表

Sub ListPivotsInfor()
'Update 20141112
    Dim St As Worksheet
    Dim NewSt As Worksheet
    Dim pt As PivotTable
    Dim I, K As Long
    Application.ScreenUpdating = False
    Set NewSt = Worksheets.Add
    I = 1: K = 2
    With NewSt
        .Cells(I, 1) = "Name"
        .Cells(I, 2) = "Source"
        .Cells(I, 3) = "Refreshed by"
        .Cells(I, 4) = "Refreshed"
        .Cells(I, 5) = "Sheet"
        .Cells(I, 6) = "Location"
        For Each St In ActiveWorkbook.Worksheets
            For Each pt In St.PivotTables
                I = I + 1
                .Cells(I, 1).Value = pt.Name
                .Cells(I, 2).Value = pt.SourceData
                .Cells(I, 3).Value = pt.RefreshName
                .Cells(I, 4).Value = pt.RefreshDate
                .Cells(I, 5).Value = St.Name
                .Cells(I, 6).Value = pt.TableRange1.Address
            Next
        Next
        .Activate
    End With
    Application.ScreenUpdating = True
End Sub

4. 接著按下 F5 鍵執行此程式碼，所有資料透視表的名稱、來源資料範圍、工作表名稱及其他屬性將自動列於一個新工作表中，並置於您目前工作表的前方，如下圖所示：

顯示目前活頁簿中資料透視表清單的螢幕截圖

相關文章：

如何檢查活頁簿中是否包含資料透視表？

如何將多個欄位新增至資料透視表？

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多