在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 

末次