excel

关注公众号 jb51net

关闭
软件教程 > 办公软件 > excel >

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”宏即可一次删除所有自定义单元格样式,而内置的单元格样式会保留。
就这么简单,我运行了一下,删除了将近上千个样式,估计是表格在转换的过程中出了问题。