批量删除 Excel 中多余的“单元格样式”（Excel无法保存边框）(转）

http://blog.163.com/wilicedon_lee/如果Excel的版本为 03-07版本的，也就是扩展名是 XLS的，如果单元格样式太多，会导致给单元格加上边框保存以后，再打开丢失边框合格式，在2010版本中就不存在这个问题了，如果有太多的单元格样式，手工删除是非常麻烦的，最简单的方法是编写一个宏，批量删除。
新建立一个宏（方法很多，例如用 Alt+F11打开窗口），补充下面的代码（黄色字体）：
Sub DelStyls()
Dim s As Style
Dim i_s As Long
i_s = ThisWorkbook.Styles.Count
On Error Resume Next
Application.ScreenUpdating = False
For Each s In ThisWorkbook.Styles
If Not s.BuiltIn Then s.Delete
Next
Application.ScreenUpdating = True
MsgBox '共删除' & i_s - ThisWorkbook.Styles.Count & '个单元格格式，还剩' & ThisWorkbook.Styles.Count & '个！', 64, '删除完毕'
End Sub
关闭宏窗口，在Excel中选择查看宏，然后执行这个DelStyls宏，耐心等待，然后就提示删除了多少个格式，还保留了多少，然后... 然后就可以保存住边框了，仅此而已。