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

2026-02-14 22:19:33

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

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

猜你喜欢