Excel样式乱码修复方法(批量删除excel样式)
脚本之家
过节的时候遇到一个求救,一个很小的问题,但是却让客服觉得是天大的事情,本着助人为乐的想法,我还是按照约定的时间前往,纵然我要做奶爸,纵然老天不给力下起了雨。
症状:一个包含N多个工作簿N多条数据的Excel突然间样式全部乱码了(类似这个),导致之前的一些格式起不了作用(主要是时间,变成了数字),虽然之前我让客户通过选择性粘贴的方法解决,当时当数据换到其他电脑的时候还是不行,于是找了一下方法,还真有。
方法:1.按Alt+F11打开VBA编辑器,在代码窗口中输入下列代码:
2.关闭VBA编辑器,返回Excel界面。按Alt+F8,打开“宏”对话框,执行“DelCustomStyles”宏即可一次删除所有自定义单元格样式,而内置的单元格样式会保留。
就这么简单,我运行了一下,删除了将近上千个样式,估计是表格在转换的过程中出了问题。
症状:一个包含N多个工作簿N多条数据的Excel突然间样式全部乱码了(类似这个),导致之前的一些格式起不了作用(主要是时间,变成了数字),虽然之前我让客户通过选择性粘贴的方法解决,当时当数据换到其他电脑的时候还是不行,于是找了一下方法,还真有。
方法:1.按Alt+F11打开VBA编辑器,在代码窗口中输入下列代码:
ASP/Visual Basic Code复制内容到剪贴板
- Sub DelCustomStyles()
- Dim st As Style
- For Each st In ActiveWorkbook.Styles
- If Not st.BuiltIn Then st.Delete
- Next
- End Sub
就这么简单,我运行了一下,删除了将近上千个样式,估计是表格在转换的过程中出了问题。