自动批量删除EXCEL自定义样式

通过运行VBA来自动删除自定义样式

启用宏

按下Alt+F11切换到宏界面，如图：

编辑宏

Sub KillStyles()
    Dim style As Style
    On Error Resume Next
    For Each style In ActiveWorkbook.Styles
        If Not style.BuiltIn Then
            style.Delete
        End If
    Next style
End Sub

运行宏

点击工具栏中的“绿色三角”来执行宏。