Excel样式乱码修复批量删除excel样式

过节的时候遇到一个求救，一个很小的问题，但是却让客服觉得是天大的事情，本着助人为乐的想法，我还是按照约定的时间前往，纵然我要做奶爸，纵然老天不给力下起了雨。
症状：一个包含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
2.关闭VBA编辑器，返回Excel界面。按Alt+F8，打开“宏”对话框，执行“DelCustomStyles”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留。
就这么简单，我运行了一下，删除了将近上千个样式，估计是表格在转换的过程中出了问题。