Excel中自定义样式太多，怎么删除？

jwcxl · 发表于 2016-1-27 23:28

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

试试我这个看看~！

llj3648510 · 发表于 2016-2-2 23:06

我也是“类style的delete方式无效”，可咋整？

blackabl · 发表于 2016-3-29 15:05

谢谢楼主！目前没出现后面表述的情况，学习中。

hxzjuster · 发表于 2016-4-13 10:37

我也是无效的结果，不知道怎么弄了

牡丹猪 · 发表于 2017-11-7 11:22

jwcxl 发表于 2016-1-27 23:28
Sub DelCustomStyles()
Dim st As Style
For Each st In ActiveWorkbook.Styles

在excel2010中运行出现了“类style的delete方法无效”，没有效果

peucy · 发表于 2020-1-16 10:18

office365 2016均不能成功。

禾刀水少 · 发表于 2020-2-5 14:42

来报个到：2016版本搞不定，也报错类style的delete方法无效

songji1988 · 发表于 2021-8-7 09:58

找这个问题找了好久,找到了解决方案前来挖坟.
希望能对同样问题的小伙伴提供一些帮助.
1.使用VBA代码(来自百度):
Sub delstylelzj()

　　Dim mystyle As Style

　　On Error Resume Next '这句解决楼上兄弟出现的报错问题

　　For Each mystyle In ActiveWorkbook.Styles

　　If mystyle.BuiltIn = False Then mystyle.Delete

　　Next

　　End Sub
缺点是要先打开文件才能运行.打开本来就死慢.

2.win10系统可以在MicrosoftStore 下载 XLStylesTool, 是国外大神写的一个小软件.可以在不打开Excel文件的情况下清除多余样式.

其他方法不是很推荐.

songji1988 · 发表于 2021-8-7 09:59

wcwcok 发表于 2012-5-30 14:38
在论坛里找了一会，解决了
公布一下解决方法，让不懂编程的人能看懂

加一句
On Error Resume Next
就会自动跳过删除不掉的报错了

		自动登录	找回密码
密码			免费注册

[求助] Excel中自定义样式太多，怎么删除？