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

之前有N多同学遇到Excel里的格式自动变成日期或会计专用的问题，在网上找到几个标本，发现其中一种情况是由于样式过多造成的。下面使用VBA的方法批量删除样式
另附：超简单的批量删除样式的办法：把工作簿的后缀名xlsx改的rar，再双击打开，删除其中的xl文件夹里的styles.xml，关闭后再把后缀名改回来就行啦~
作者：小妖-Office中国
Excel批量删除工作簿里的样式操作动画

1484298619118845.gif

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
点击加入群：Excel部落结识Excel大神学好Excel,效率成倍提高，薪水稳步增长，职位快速提升
每天一个源创技巧，如觉得有用，请点上面关注。更重要手机转发分享