芯友网Xin1234.COM

EXCEL2010样式区出现这么多，怎么快速删除，一个一个删除太慢了


δ74s
？：EXCEL2010样式区出现这么多，怎么快速删除，一个一个删除太慢了
K混混
Sub tt()
Dim Sty As Style
For Each Sty In ThisWorkbook.Styles
    If Sty.Name Like "常规*" Then Sty.Delete
Next
End Sub
这个删除所有非内置的
Sub tt()
Dim Sty As Style
For Each Sty In ThisWorkbook.Styles
    If Not Sty.BuiltIn Then Sty.Delete
Next
End Sub
δ74s
永小
?混混K ?混混K  这个代码我用过没生效
zgglosbdu：号音抖
相关问题
【@天津-VBA-王嘉玮 流程图是怎么做在word里的呢？】
【我用VBA 插入图片后，图片不能随excel保存，要怎么办？代码如下 Sub AAAA()   】
【 m = activateWorkbook.Name为毛这个会提示 要求对象 】
【Excel有人知道如何把这些单元格里的空行删除吗 】
------分隔线----------------------------
赞助商链接
赞助商链接
热点内容
推荐内容