2010版如何批量删除自定义的单元格样式

侧耳听泉

wolll 发表于 2011-12-11 17:42
在“当前工作薄”下建一宏，运行完之后关闭工作薄，再打开就好了！
代码：
Sub 批量删除单元格样式()

这段代码不行，一运行就没有响应了

wxjlotus

for循环次序有问题，改成：
Sub 批量删除自定义样式()

Debug.Print ActiveWorkbook.Styles.Count

For i = ActiveWorkbook.Styles.Count To 1 Step -1
     On Error Resume Next
     ActiveWorkbook.Styles(i).Delete
Next

Debug.Print ActiveWorkbook.Styles.Count

End Sub

kev666

wxjlotus 发表于 2013-6-20 12:03
for循环次序有问题，改成：
Sub 批量删除自定义样式()

运行总是未响应

vianchiang

又学到了一招，谢谢！

Pappelliu

还有一个代码
Alt+F11 在“thisworkbook”下建一宏，

Sub DelCustomStyles()
Dim st As Style
For Each st In ActiveWorkbook.Styles
If Not st.BuiltIn Then st.Delete
Next
End Sub

运行代码，这个只删除用户自定义的单元格格式，不会删除内置的单元格格式。

feng19

支持一下这个代码，自动化如何做请示范一下，我加载的宏代码，不会自动运行，要手动从代码里选择才行。

stayyang

自动清除自定义单元格样式宏

jwcxl

Sub DelCustomStyles()
Dim st As Style
For Each st In ActiveWorkbook.Styles
If Not st.BuiltIn Then st.Delete
Next
End Sub


这个包好~！自己试过~！

kuangben8

参考：
https://www.zhihu.com/question/39281483/answer/80565464?group_id=773989603681009664
excel的单元格格式总是变成“自定义”，导致数据变成乱码，请问如何根治？
背景：
1、题主经常做EXCEL表格，但是总遇到此类EXCEL表格；
2、单元格格式每次打开都自己变成自定义（custom),经常发生在日期和数据格式的单元格里；
3、之前在网上查过，删除掉自定义里的“【$-409】mmm/yy;@”就行了（如下图）；
4、但是过几次这个格式还是会自己跑出来；
5、而且其他人打开我的EXCEL也会是这样；
6、还有一种情况是【$-804】
问题：
1、请问这是为什么呢？我百思不得其解；
2、请问如何根治？
再次感谢回复。

猜题主用的是2007
原因多半是使用了过多的单元格样式
一句话说不清楚，咱们如果继续下去，题主告诉我你使用office的版本以及将文件共享（看我签名），我给你一个解决方案
题主已经提供附件，我就继续更新：
原因果然就是过多的单元格样式：
这个是默认的：


这个是题主的：




产生这样结果的原因继续深挖就是一个模板反复套用，陈年积累下来就是这么多，超出了excel的这方面的上限了，excel就罢工了。
治疗方法：
1、xlsx文件本质就是一个rar文件，所以找到你的文件，更改后缀名xlsx为rar
2、打开这个rar ，进入xl目录下，删除sytles.xml文件




3、然后关闭打开的rar文件，将后缀rar改为xlsx
4、打开xlsx表格，出现下面提示点是


5、这事你表中自定义单元格样式全部被删除，焕然一新，重新开始设置你的格式吧。
6、个人建议：有条件的话，不要使用office2007，如果不能更换（考虑到题主说的微软答复，可能是正版）那就不要在同一个工作簿中，将一个设置各种复杂单元格样式的sheet复制出来作为新的sheet，哪怕你最终只保留1个sheet，其他都删了，但是单元格样式被保留下来了
ps：2007我没用过，也许打个office的补丁能解决这个问题，但是我遇到的最多的都是用的2007.


作者：语虚何以言知
链接：https://www.zhihu.com/question/39281483/answer/80565464
来源：知乎
著作权归作者所有，转载请联系作者获得授权。

billzhaopa

好贴，收藏，感谢。