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

Question

如题所述

Answer 1

在Excel中可通过内置或自定义的单元格样式直接设置单元格格式，十分方便。而在Excel 2007/2010中，在“开始”选项卡的“样式”组中，单击“单元格样式”可在样式库中直接选择，显得更加方便。
有时会遇到这种情况，工作簿中的自定义单元格样式非常多，需要将其全部删除，如果手动逐一操作显得有些繁琐，如下图所示的自定义单元格样式。
这时用下面的VBA代码可一次删除所有的自定义单元格样式，方法如下。
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.关闭VBA编辑器，返回Excel界面。按Alt+F8，打开“宏”对话框，执行“DelCustomStyles”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留，如下图。
说明：删除全部自定义单元格样式后，对于应用过这些样式的单元格或区域，其单元格格式也会同时被清除