一次性删除自定义样式方法-excel2007

一次性删除自定义样式方法-excel2007

(2014-05-08 13:28:10)

转载▼

分类：职场人

标签：

杂谈

有时候面对自己的excel里莫名出现（其实还是因为人工操作导致的）的超多自定义样式，非常苦恼，如图所示，可以利用VBA编辑一次性删除。

1.打开VBA编辑器（alt+f11)，在代码窗口中输入下列代码：

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

分享：