在Excel 2016中删除自定义样式时遇到问题

Question

我在Excel 2016中使用了大型工作簿，看起来大量的自定义样式已导入到工作簿中，并且与工作簿中单元格的格式相混淆。我使用下面的代码删除自定义样式

Sub clear_all_styles() 

Dim styT As Style 

For Each styT In ActiveWorkbook.Styles 
    If styT.BuiltIn = False Then 
     styT.Locked = False 
     styT.Delete 
    End If 
Next styT 

End Sub 

尝试，但在样式在样式带状仍然上市的时候我执行代码。另外，当我尝试通过右击它们手动删除样式时，它们不会被删除。

任何想法我做错了什么？

Answer 1

您可以尝试

Sub clear_all_styles() 

Dim styT As Style 
On Error Resume Next 
For Each styT In ActiveWorkbook.Styles 
    If Not styT.BuiltIn Then 
     If styT.Name <> "1" Then styT.Delete 
    End If 
Next styT 

末次