嘿，我懂你的需求——你现在录的宏只能处理当前激活的工作表，但你想让它自动搞定那19个带数据透视表的工作表，不用手动切换一个个跑对吧？这完全能实现，咱们来修改你的VBA代码就行。

首先把你录制的原宏代码（虽然没写完）贴出来参考：

Sub WeekUpdate()
'
' WeekUpdate Macro
' Update the week for Wait Vs Price
'
' Keyboard Shortcut: Ctrl+Shift+J
'
    ActiveSheet.PivotTables("PivotTable6").PivotFields( _
        "[Date].[Fiscal Date Hiera..."
    ' 这里应该还有你录制的筛选设置代码，比如选择具体日期的部分
End Sub

下面给你两种实用的修改方案，你可以根据自己的情况选：

方案1：自动遍历所有工作表，只更新有目标透视表的表 #

如果那19个工作表里的数据透视表都叫PivotTable6，这个方案最省心，它会自动检查每个工作表，找到有这个透视表的就更新：

Sub WeekUpdate()
'
' WeekUpdate Macro
' 批量更新所有含指定数据透视表的工作表的日期筛选
' Keyboard Shortcut: Ctrl+Shift+J
'
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim targetPivotField As PivotField
    
    ' 遍历工作簿里的每一张工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 先尝试找到当前工作表里的PivotTable6，找不到就跳过
        On Error Resume Next
        Set pt = ws.PivotTables("PivotTable6")
        On Error GoTo 0 ' 恢复正常错误提示
        
        If Not pt Is Nothing Then
            ' 替换成你原宏里的日期字段完整名称，比如从录制的代码里复制
            Set targetPivotField = pt.PivotFields("[Date].[Fiscal Date Hierarchy].[Fiscal Week]")
            
            ' 清除原有筛选，然后设置你需要的周数
            targetPivotField.ClearAllFilters
            ' 举个例子：如果你要选FY24第12周，就用下面这句（替换成你的实际值）
            ' targetPivotField.CurrentPage = "[Date].[Fiscal Date Hierarchy].[Fiscal Week].&[FY24-WK12]"
            
            ' 如果你想自动选最新的一周，可以用这个逻辑（按需调整）
            ' Dim latestWeek As PivotItem
            ' Set latestWeek = targetPivotField.PivotItems(targetPivotField.PivotItems.Count)
            ' targetPivotField.CurrentPage = latestWeek.Name
            
            Set pt = Nothing ' 重置变量，准备处理下一个工作表
        End If
    Next ws
    
    ' 更新完成后弹个提示
    MsgBox "所有目标数据透视表的日期筛选已经更新好了！", vbInformation
End Sub

方案2：指定具体的19个工作表名称 #

如果那19个工作表有明确的名字，不想碰另外2个无关的表，那直接把工作表名字列出来更精准：

Sub WeekUpdate()
'
' WeekUpdate Macro
' 批量更新指定工作表的数据透视表日期筛选
' Keyboard Shortcut: Ctrl+Shift+J
'
    Dim targetSheetNames As Variant
    Dim sheetName As Variant
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim targetPivotField As PivotField
    
    ' 把你的19个工作表名称放到这个数组里，用逗号分隔开
    targetSheetNames = Array("销售报表", "库存分析", "客户趋势") ' 替换成你的实际表名
    
    For Each sheetName In targetSheetNames
        Set ws = ThisWorkbook.Worksheets(sheetName)
        Set pt = ws.PivotTables("PivotTable6") ' 假设透视表名称统一
        
        ' 同样设置日期筛选，替换成你的实际字段和筛选值
        Set targetPivotField = pt.PivotFields("[Date].[Fiscal Date Hierarchy].[Fiscal Week]")
        targetPivotField.ClearAllFilters
        ' targetPivotField.CurrentPage = "[Date].[Fiscal Date Hierarchy].[Fiscal Week].&[FY24-WK12]"
        
        Set pt = Nothing
        Set ws = Nothing
    Next sheetName
    
    MsgBox "指定工作表的数据透视表筛选更新完成！", vbInformation
End Sub

几个重要的注意事项： #

• 字段名称要准确：你得把代码里的[Date].[Fiscal Date Hierarchy].[Fiscal Week]换成你原宏里的完整字段名，这个从你录制的代码里就能找到完整的内容。
• 透视表名称不一致？：如果那19个表的透视表名字不一样，你可以改成遍历工作表里的所有透视表，或者根据透视表的数据源来判断哪个是需要更新的。
• 先备份！：修改宏之前最好先备份你的工作簿，避免测试过程中出问题。

内容的提问来源于stack exchange，提问作者bored_gamer