批量删除 Excel 中多余的“单元格样能解决边框不能保存问题

?如果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宏，耐心等待，然后就提示删除了多少个格式，还保留了多少，然后... 然后就可以保存住边框了，仅此而已。