VBA批量删除自定义单元格样式

2025-11-20 21:02:04

1、按Alt+F11打开VBA编辑器，在代码窗口中输入下列代码：

Sub DelCustomStyles()

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

2、关闭VBA编辑器，返回Excel界面。按Alt+F8，打开“宏”对话框，执行“DelCustomStyles”宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留。

VBA批量删除自定义单元格样式

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。