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

武松打鼓

mingo 发表于 2016-9-2 11:42
这个可以，就是时间长了点。谢谢。
Sub DelStyls()
Dim s As Style

确实强大哦

978351445

mingo 发表于 2016-9-2 11:42
这个可以，就是时间长了点。谢谢。
Sub DelStyls()
Dim s As Style

这个是可以的，追问一下，删不掉的怎么办

setnew

今天在微信群看到一个网友提出这个问题，录了个宏删除，测试了过程是可以运行，可是当自定义样式名称改为“Normal”开头的就删不掉了，提示：运行时错误 “1004”： 类Style.Delete方法无效，刚翻到这个贴子，发现可以删除一部分Normal开头的自定义样式，还是几个样式删不掉。网上找到的代码如下：

1. Sub DelCustomStyles()
   
2. Dim st As Style
   
3.     For Each st In ActiveWorkbook.Styles
   
4.         If Not st.BuiltIn Then st.Delete
   
5.     Next
   
6. End Sub

复制代码