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

之前有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