请问如何批量删除自定义样式？

sunlilg

请问如何批量删除自定义样式，如附件图示。

安然祥和

选中编辑区，编辑－清除－格式

honggexjq

1. Sub test()
   
2. Dim mystyle As Style
   
3. For Each mystyle In ActiveWorkbook.Styles
   
4.     If mystyle.BuiltIn = False Then mystyle.Delete
   
5. Next
   
6. End Sub

复制代码

sunlilg

mystyle.delete方法无效

honggexjq

2007测试通过，最好发个附件上来

sunlilg

在没有自定义格式的情况下是可以通过测试的，有的则不行

honggexjq

这样的问题倒是没碰到过，你那些以下划线开头的自定义样式很奇怪，无法选中，也无法右击删除，在代码里加一句可以把其它的自定义样式删除，但对这些下划线开头的没有办法
Sub test()
Dim mystyle As Style
On Error Resume Next
For Each mystyle In ActiveWorkbook.Styles
    If mystyle.BuiltIn = False Then mystyle.Delete
Next
End Sub

honggexjq

还有个方法是新建一个工作簿，把数值拷贝过去不拷贝格式，见下图：

sunlilg

虽然不能全部删除，但已经解决了问题。

小鸡翅

虽然代码可用，但样式太多了，删得很慢。