嘿，这个需求我太熟了——手动一个个删自定义样式真的超麻烦，下面给你两种靠谱的方法，按需选择就行：

方法一：用VBA宏批量删除（推荐，高效不翻车） #

这是最稳妥的批量处理方式，能精准保留所有Excel内置的默认样式，只删掉你自己创建的。步骤如下：

1. 打开目标Excel工作簿，按下 Alt + F11 打开VBA编辑器
2. 在左侧的「项目资源管理器」里，右键点击你的工作簿名称，选择「插入」>「模块」
3. 把下面的代码粘贴到模块窗口里：

Sub DeleteCustomStyles()
    Dim sty As Style
    ' 遍历工作簿中的所有样式
    For Each sty In ThisWorkbook.Styles
        ' 只删除非内置的自定义样式
        If Not sty.BuiltIn Then
            On Error Resume Next ' 跳过正在被使用的样式（避免报错）
            sty.Delete
            On Error GoTo 0
        End If
    Next sty
    MsgBox "自定义样式已批量清除完成！", vbInformation
End Sub

4. 按下 F5 运行宏，或者回到Excel界面，点击「开发工具」选项卡>「宏」> 选中DeleteCustomStyles执行就行。

小提示：如果你的工作簿里有正在被使用的自定义样式，宏会自动跳过它（避免报错），之后你可以手动处理这些被使用的样式，或者先替换成默认样式再重新运行宏。

方法二：手动批量删除（适合不想用宏的情况） #

如果不想碰代码，也可以用手动操作批量搞定：

1. 点击Excel顶部的「开始」选项卡，找到「样式」组里的「单元格样式」按钮，展开完整的样式面板
2. 操作分两种情况：
   • 若你的Excel版本支持直接过滤：全选所有样式（按Ctrl + A），右键点击任意样式选择「删除」，系统会自动跳过内置默认样式，只删除自定义的
   • 若上述方法不行：先按住Ctrl键，逐个点击所有你想保留的默认样式（比如「常规」「货币」「会计专用」这些），然后再按Ctrl + A全选所有样式——这时候刚才选中的默认样式会被取消选中，剩下的就是自定义样式，右键删除即可

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