点滴之间 聚沙成金

有些excel表格打开后，其样式面板有这么多自定义样式，

是不是很恐怖？反正我是很看不顺眼，找一方法清理(来源)，使用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”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留，如下图。

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

方法来源：http://www.excel123.cn/Article/excelvba/201203/933.html