Excel样式错乱，清除：一堆无用的样式

打开excel后 按快捷键：

ALT + F11

右键：新增模块

粘贴入下面的代码：

Sub DelCustomStyles()
Dim st As Style
For Each st In ActiveWorkbook.Styles
If Not st.BuiltIn Then st.Delete
Next
End Sub

然后运行一次即可。