单元格自定义样式无法删除

lrsh1985

如图所示，我同事有一个表格，里面有很多自定义的格式，不知道是怎么产生的。现在她想全部删除，手动删除和用vba删除都删不掉，这是什么原因？该如何解决呢？

附件里我把她的数据都删除掉了，只剩了一张空白表格。这些自定义的格式使得这个表格的大小很大，一个空表都将近1MB。




无法删除样式.rar (1016.86 KB, 下载次数: 71)

2013-9-9 10:32 上传

点击文件名下载附件

lrsh1985

goodlong 发表于 2013-9-9 11:34
批量删除单元格样式宏：
http://blog.163.com/wilicedon_lee/blog/static/81588483201210124107379/

我用的是2010.你这个方法不好使啊，你可以用附件那个表试试，我用你网址里面那段宏运行了一下，都没有删掉……

lrsh1985

goodlong 发表于 2013-9-9 11:34
批量删除单元格样式宏：
http://blog.163.com/wilicedon_lee/blog/static/81588483201210124107379/

附表里的单元格样式别说用vba删了，用手工都无法删除，郁闷

lrsh1985

自己再顶自己一下，就没有人看到吗？

goodlong

批量删除单元格样式宏：
http://blog.163.com/wilicedon_lee/blog/static/81588483201210124107379/

楼主用的2007？
貌似2007这类问题最多

stayyang

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

qsyk190ttbt

试过了，用这种发方法不能删除一些奇怪的styles（在英文excel里面显示为乱码的那种），而且在菜单里右键菜单也删不掉这些style。估计是从excel外部复制黏贴的时候产生的一些奇怪的格式。
还是用7z压缩软件打开有问题的xlsx文件（选中后按Ctrl+PgDn），然后删除xl目录下的styles.xml，退出7z后打开excel文件提示文件损坏，点击修复后自定义格式就干净了。不过因为所有的格式都变为General了，因此还要手动去改一遍。

jwcxl

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


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

mingo

这个可以，就是时间长了点。谢谢。
Sub DelStyls()
Dim s As Style
Dim i_s As Long
i_s = ThisWorkbook.Styles.Count
On Error Resume Next
Application.ScreenUpdating = False
For Each s In ThisWorkbook.Styles
If Not s.BuiltIn Then s.Delete
Next
Application.ScreenUpdating = True
MsgBox "共删除" & i_s - ThisWorkbook.Styles.Count & "个单元格格式，还剩" & ThisWorkbook.Styles.Count & "个！", 64, "删除完毕"
End Sub

g001j002

这个很奇怪，乱码样式，删不掉~