过节的时候遇到一个求救，一个很小的问题，但是却让客服觉得是天大的事情，本着助人为乐的想法，我还是按照约定的时间前往，纵然我要做奶爸，纵然老天不给力下起了雨。

　　症状：一个包含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”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留。

　　就这么简单，我运行了一下，删除了将近上千个样式，估计是表格在转换的过程中出了问题。