按下Alt+F11打开VBA界面，左边工程处双击ThisWorkBook

在新窗口处输入以下代码

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

按F5运行即可

版权属于：oduang

本文链接：https://oduang.com/wz/327.html

转载时须注明出处及本声明，谢谢合作！