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

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

在Excel中可通过内置或自定义的单元格样式直接设置单元格格式，十分方便。而在Excel 2007/2010中，在“开始”选项卡的“样式”组中，单击“单元格样式”可在样式库中直接选择，显得更加方便。

有时会遇到这种情况，工作簿中的自定义单元格样式非常多，需要将其全部删除，如果手动逐一操作显得有些繁琐，如下图所示的自定义单元格样式。

这时用下面的VBA代码可一次删除所有的自定义单元格样式，方法如下。

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

Sub DelCustomStyles()Dim st As StyleFor Each st In ActiveWorkbook.StylesIf Not st.BuiltIn Then st.DeleteNextEnd Sub

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

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。