加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

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

(2014-03-07 11:58:42)
标签:

杂谈

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

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有