删除自定义样式的VBA，一个个删除比较麻烦，可以批量删除

1. Sub DelStyle()
   
2. 
   
3. Dim istyle As Style
   
4. On Error Resume Next
   
5.     For Each istyle In ActiveWorkbook.Styles
   
6.         If Not istyle.BuiltIn Then
   
7.             istyle.Delete
   
8.         End If
   
9.     Next istyle
   
10. End Sub

复制代码

删除自定义样式的VBA，一个个删除比较麻烦，可以批量删除

1. Sub DelStyle()
   
2. 
   
3. Dim istyle As Style
   
4. On Error Resume Next
   
5.     For Each istyle In ActiveWorkbook.Styles
   
6.         If Not istyle.BuiltIn Then
   
7.             istyle.Delete
   
8.         End If
   
9.     Next istyle
   
10. End Sub

复制代码