我自己搜索了一下,有一个办法:Alt+F11,然后编辑代码Sub DelCustomStyles() Dim st As Style For Each st In ActiveWorkbook.Styles If Not st.BuiltIn Then st.Delete Next End Sub, 再Alt+F8,执行就行了的办法 结果执行的时候出现了这样一个窗口,我真心悲催了这是怎么回事啊?