1、解决方法:在VBA编辑器里,新建模块,复制代码如下:Sub deleteStyles()Dim s As StyleOn Error Resu罪焐芡拂me NextFor Each s In ThisWorkbook.StylesIf Not s.BuiltIn Thens.DeleteEnd IfNextMsgBox "运行结束"End Sub
2、按F5运行代码,等上几分钟,弹出“运行结束”对话框,多余的单元格样式将被批量删除。重新在立即窗口看一下,目前的单元格样式的数量,只剩下47个了。再回到EXCEL界面,单元格样式看一下是否少了呢?