给我一个EXCEL宏，将当前这一张工作表的数据透视表重置为初始状态。

在Excel中，创建一个宏来重置数据透视表（PivotTable）到初始状态并不是直接可用的标准操作，因为宏并不提供这样的内置功能。但是，你可以通过删除或者修改数据透视表的字段来实现这个过程。以下是一个简单的步骤描述：

1. 打开Excel的开发者选项卡（如果尚未启用，请转到“文件” > “选项” > “自定义功能区”，勾选“开发工具”）。

2. 在开发工具选项卡中，找到并点击“Visual Basic”。

3. 在VBA编辑器中，点击“插入” > “模块”来创建一个新的宏。

4. 将下面的VBA代码复制粘贴到新模块中：

Sub ResetPivotTable()
    Dim pt As PivotTable
    For Each pt In ActiveSheet.PivotTables
        ' 清除所有字段
        With pt.PivotFields
            .ClearAllFilters
            .RemoveAllSorts
        End With
        
        ' 删除所有行标签和列标签
        pt.TableRange2.Rows.Clear
        pt.TableRange2.Columns.Clear
        
        ' 如果有数据源，请还原它
        If pt.HasData Then
            pt.RefreshTable
        End If
    Next pt
End Sub

5. 点击“运行”按钮或按下F5键来运行宏，它会遍历当前工作表的所有数据透视表并将它们恢复到初始状态。

注意：由于安全设置，你可能需要取消Excel宏的信任中心的限制才能运行此宏。