用于动态数据透视表更新的循环 VBA 代码

Question

我找到了一种从 Excel 单元格动态调整数据透视表过滤器的解决方案，效果很好；见这里：

    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As 
    Range)
    'This line stops the worksheet updating on every change, it only 
    updates when cell
    'D1 or D2 is touched
    If Intersect(Target, Worksheets("test").Range("D1:D2")) Is Nothing 
    Then Exit Sub

    'Set the Variables to be used
    Dim pt As PivotTable
    Dim Field As PivotField
    Dim NewCat As String

    'Here you amend to suit your data
    Set pt = Worksheets("test").PivotTables("PivotTable2")
    Set Field = pt.PivotFields("Name")
    NewCat = Worksheets("test").Range("D1").Value

    'This updates and refreshes the PIVOT table
    With pt
    Field.ClearAllFilters
    Field.CurrentPage = NewCat
    pt.RefreshTable
    End With

    End Sub

我试图弄清楚如何循环这个例如定义的次数（即 60 次）来控制大量的数据透视表都引用不同的单元格。

计划是有一个员工列表，每个数据透视表将显示与该员工相关的数据，但员工列表将是动态的。

编辑： 请查看我要实现的目标的图像；

最终目标是设置分页符并快速刷新和打印个人技能水平以供员工评估。

Answer 1

看你的图片，这似乎是XY Problem

您需要一份用户列表及其技能。您已决定这需要多个数据透视表。我建议使用多列数据透视表，在用户之间使用空白行：

除了关闭“名称”的小计外，还需要“在每个项目标签后插入空行”和不“在组顶部显示小计”：

（顺便说一句 - 在使用多个数据透视表时，尤其是使用相同数据透视表的数据透视表时，the PivotTable.ManualUpdate property 对于减少冗余重新计算非常有用！）