篇一：如何批量删除2007版excel表格的自定义单元格样式
如何批量删除2007版excel表格的自定义单元格样式
在Excel中可通过内置或自定义的单元格样式直接设置单元格格式，十分方便。而在Excel 2007/2010中，在“开始”选项卡的“样式”组中，单击“单元格样式”可在样式库中直接选择，显得更加方便。
方法/步骤：
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”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留。
篇二：一次性删除自定义样式方法-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”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留。
分享：
篇三：EXCEL2007删除自定义样式宏命令
EXCEL2007删除自定义样式宏命令
Sub X()
For Each s In ActiveWorkbook.Styles
MsgBox s.Name
On Error Resume Next
If Len(s.Name) > 0 And s.Name <> "Normal" Then s.Delete
End If
If Err.Number > 0 Then
e = "Error occour on deleting Style named " & s.Name
e = e & vbCrLf & "Err:" & Err.Number &"->" & Err.Description MsgBox e
Err.Clear
End If
Next
End Sub
《excel2007表格样式如何删除》出自：百味书屋
链接地址：http://www.850500.com/news/36624.html
转载请保留,谢谢!