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

在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”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留，如下图。

说明：删除全部自定义单元格样式后，对于应用过这些样式的单元格或区域，其单元格格式也会同时被清除。

来自：Excel技巧天地

链接：http://www./Article/excelvba/201203/933.html

---

●本文编号354，以后想阅读这篇文章直接输入354即可

●输入m可以获取到全部文章目录

●输入c可以获取到全部动画下载地址