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