使用自定义页字段简化数据透视表中的数据筛选

Excel技巧

2023-11-18 17:44:09

在创建数据透视表时，能够有效筛选数据至关重要，而自定义页字段可以极大简化这一过程。自定义页字段允许用户为不同的数据源分配名称，从而在创建数据透视表时在报告筛选字段的下拉列表中显示这些名称。

自定义页字段的好处

自定义页字段提供了以下好处：

提高筛选效率： 使用自定义页字段，用户可以根据数据源名称直接筛选数据，而无需滚动浏览冗长的字段列表。
增强数据组织性： 自定义页字段有助于组织数据源，让用户能够轻松识别和选择所需的数据。
节省时间： 通过快速筛选数据，用户可以节省大量创建数据透视表所需的时间。

创建自定义页字段的步骤

创建自定义页字段涉及以下步骤：

连接数据源： 将所有要合并到数据透视表中的数据源连接到工作簿中。
命名数据源： 在“数据”选项卡的“连接”组中，单击“编辑链接”，然后为每个数据源分配一个唯一的名称。
创建数据透视表： 选择要合并的数据，然后单击“插入”选项卡上的“数据透视表”图标。
使用自定义页字段： 在“字段列表”窗格中，展开“页字段”字段组。您现在应该看到您在步骤 2 中命名的自定义页字段。

示例代码

以下示例代码演示了如何使用自定义页字段创建数据透视表：

Sub CreatePivotTableWithCustomPageFields()
    '连接数据源
    Dim conn1 As ADODB.Connection
    Set conn1 = New ADODB.Connection
    conn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\data1.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""

    Dim conn2 As ADODB.Connection
    Set conn2 = New ADODB.Connection
    conn2.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\data2.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""

    '命名数据源
    With conn1
        .Name = "DataSource1"
    End With

    With conn2
        .Name = "DataSource2"
    End With

    '创建数据透视表
    Dim pvt As PivotTable
    Set pvt = Sheets("Sheet1").PivotTables.Add( _
        SourceData:=Range("A1:D10"), _
        TableDestination:=Range("A15:E25"), _
        RowFields:=Array("Region"), _
        ColumnFields:=Array("Product"), _
        PageFields:=Array("DataSource1", "DataSource2"))
End Sub