在Excel 2016中删除自定义样式时遇到问题
问题描述:
我在Excel 2016中使用了大型工作簿,看起来大量的自定义样式已导入到工作簿中,并且与工作簿中单元格的格式相混淆。我使用下面的代码删除自定义样式在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
尝试,但在样式在样式带状仍然上市的时候我执行代码。另外,当我尝试通过右击它们手动删除样式时,它们不会被删除。
任何想法我做错了什么?
答
您可以尝试
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
末次
最好的,谢谢! –