我刚好处理过类似的需求，用VBA就能完美解决这个日期范围筛选的问题，不用再手动调整筛选条件。下面是具体的实现步骤和代码：

核心思路 #

利用VBA获取当前系统日期，计算出过去30天的起始日期，然后给数据透视表的日期字段设置日期范围筛选，保留起始日期到今日的数据。

完整VBA代码示例 #

Sub AutoSetPivotDateRange()
    Dim targetPivot As PivotTable
    Dim dateField As PivotField
    Dim startDate As Date
    Dim endDate As Date
    
    ' 定义日期范围：今日及往前推30天
    endDate = Date ' 获取当前系统日期
    startDate = endDate - 30 ' 计算30天前的日期
    
    ' 替换成你的数据透视表所在工作表和名称
    Set targetPivot = ThisWorkbook.Worksheets("早报数据").PivotTables("核心数据透视表")
    ' 替换成你的数据透视表中的日期字段名称
    Set dateField = targetPivot.PivotFields("记录日期")
    
    ' 清除之前的筛选状态，避免叠加筛选
    dateField.ClearAllFilters
    
    ' 设置日期范围筛选：只保留startDate到endDate之间的数据
    dateField.PivotFilters.Add _
        Type:=xlDateBetween, _
        Value1:=startDate, _
        Value2:=endDate
    
    ' 可选：如果需要同时刷新数据透视表的数据源，加上这行
    targetPivot.RefreshTable
End Sub

代码关键说明 #

1. 日期计算：Date函数会自动取当前电脑的系统日期，Date - 30就是30天前的日期，不用手动写固定日期。
2. 对象指定：你需要把代码里的"早报数据"（工作表名）、"核心数据透视表"（透视表名）、"记录日期"（日期字段名）替换成你工作簿里的实际名称。
3. 筛选类型：xlDateBetween是Excel内置的日期范围筛选类型，专门用来设置介于两个日期之间的筛选条件。

使用方法 #

1. 打开你的工作簿，按Alt + F11打开VBA编辑器。
2. 在左侧项目窗口里，右键点击你的工作簿名称，选择「插入」→「模块」。
3. 把上面的代码粘贴到新建的模块里，修改对应的名称参数。
4. 按F5运行代码，或者把这个宏绑定到工作表的按钮上，方便每日一键执行。

注意事项 #

• 确保你的日期字段是标准日期格式（不是文本型），否则筛选可能失效。如果是文本型，先把数据源的日期列转换成日期格式。
• 如果你的数据透视表是按日期分组的（比如按年/月分组），需要调整代码，针对最细的日期级别设置筛选，或者先取消分组再设置筛选。
• 可以把这个宏和你现有的数据获取自动化流程合并，比如在数据刷新完成后自动运行这个筛选宏，实现全流程自动化。

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