之前有N多同学遇到Excel里的格式自动变成日期或会计专用的问题，在网上找到几个标本，发现其中一种情况是由于样式过多造成的。

下面使用VBA的方法批量删除样式

另附：超简单的批量删除样式的办法：把工作簿的后缀名xlsx改的rar，再双击打开，删除其中的xl文件夹里的styles.xml，关闭后再把后缀名改回来就行啦~

  作者：小妖-Office中国

  Excel批量删除工作簿里的样式操作动画

        Excel批量删除工作簿里的样式vba代码：                      

        Sub Sample()            On Error Resume Next            Dim i As Long            Cont:            For i = 1 To ActiveWorkbook.Styles.Count                ActiveWorkbook.Styles(i).Delete            Next            If i > 2 Then                GoTo Cont            End If        End Sub