给我一个EXCEL宏，能够将当前工作表的所有数据透视表筛选器重置为初始状态。

在Excel中，你可以创建一个简单的宏来批量重置数据透视表的筛选器。以下是一个基本的VBA宏示例，适用于Excel 2016及以上版本：

Sub ResetPivotFilters()
    Dim ws As Worksheet
    Dim pt As PivotTable
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查工作表是否包含数据透视表
        If ws.PivotTables.Count > 0 Then
            For Each pt In ws.PivotTables
                ' 清除每个数据透视表的所有筛选器
                With pt.PivotFields
                    .ClearAllFilters
                End With
            Next pt
        End If
    Next ws

    MsgBox "所有的数据透视表筛选器已重置为初始状态", vbInformation, "提示"
End Sub

这个宏首先定义了一个循环遍历工作簿中的所有工作表。对于每个包含数据透视表的工作表，它会再次遍历该工作表上的所有数据透视表，并使用`.ClearAllFilters`方法清除筛选器。

运行此宏之前，请确保你有VBA编辑器打开并且有必要的权限操作工作簿内容。