巧用数据透视表，解锁隐藏的分类信息**

Excel技巧

2023-10-14 17:30:56

数据透视表作为一种强大的数据分析工具，可以帮助我们快速整理和汇总大量数据。然而，当数据项的命名规则不符合我们的需要时，提取特定信息就变得困难。以下技巧将展示如何利用VBA代码，从数据透视表中的数据项中自动生成所需的分类信息。

步骤 1：创建数据透视表

首先，在包含销售数据的源表中创建数据透视表，将“商品”字段拖放到“行”字段区域。

步骤 2：设置数据项命名规则

假设“商品”字段的数据项命名规则为“商品品牌+型号+商品分类”。我们需要修改数据透视表字段设置，仅保留“商品分类”信息。

步骤 3：编写VBA代码

使用VBA代码可以自动提取数据透视表中的数据项并根据命名规则生成所需的分类信息。以下代码示例展示了如何实现这一功能：

Sub ExtractCategories()
    Dim pt As PivotTable
    Set pt = ActiveSheet.PivotTables(1)
    Dim i As Long, j As Long
    Dim arrData() As String
    Dim arrCategories() As String
    ReDim arrData(1 To pt.DataBodyRange.Rows.Count, 1 To pt.DataBodyRange.Columns.Count)
    For i = 1 To pt.DataBodyRange.Rows.Count
        For j = 1 To pt.DataBodyRange.Columns.Count
            arrData(i, j) = pt.DataBodyRange(i, j).Value
        Next j
    Next i
    ReDim arrCategories(1 To pt.DataBodyRange.Rows.Count)
    For i = 1 To pt.DataBodyRange.Rows.Count
        arrCategories(i) = Split(arrData(i, 1), "+")(2)
    Next i
    With pt
        .RowAxis.Clear
        .AddFields RowAxis:=.Fields("商品分类"), Orientation:=xlRowField
    End With
    For i = 1 To pt.RowAxisRange.Rows.Count
        pt.RowAxisRange(i).Value = arrCategories(i)
    Next i
End Sub