Excel样式乱码修复方法(批量删除excel样式)

  发布时间:2016-01-22 21:01:32   作者:佚名   我要评论
这篇文章主要介绍了Excel样式乱码修复方法(批量删除excel样式),需要的朋友可以参考下
过节的时候遇到一个求救,一个很小的问题,但是却让客服觉得是天大的事情,本着助人为乐的想法,我还是按照约定的时间前往,纵然我要做奶爸,纵然老天不给力下起了雨。
症状:一个包含N多个工作簿N多条数据的Excel突然间样式全部乱码了(类似这个),导致之前的一些格式起不了作用(主要是时间,变成了数字),虽然之前我让客户通过选择性粘贴的方法解决,当时当数据换到其他电脑的时候还是不行,于是找了一下方法,还真有。



方法:1.按Alt+F11打开VBA编辑器,在代码窗口中输入下列代码:

ASP/Visual Basic Code复制内容到剪贴板
  1. Sub DelCustomStyles()   
  2.    Dim st As Style   
  3.    For Each st In ActiveWorkbook.Styles   
  4.      If Not st.BuiltIn Then st.Delete   
  5.    Next  
  6.    End Sub  
2.关闭VBA编辑器,返回Excel界面。按Alt+F8,打开“宏”对话框,执行“DelCustomStyles”宏即可一次删除所有自定义单元格样式,而内置的单元格样式会保留。
就这么简单,我运行了一下,删除了将近上千个样式,估计是表格在转换的过程中出了问题。

相关文章

最新评论