VBA批量删除自定义单元格样式

1、1.按Alt+F11打开VBA编辑器，在代码窗口中输入下列代码：

   Sub DelCustomStyles()

   Dim st As Style
   For Each st In ActiveWorkbook.Styles
     If Not st.BuiltIn Then st.Delete
   Next
   End Sub

2、2.关闭VBA编辑器，返回Excel界面。按Alt+F8，打开“宏”对话框，执行“DelCustomStyles”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留。