1、按Alt+F11键,打开VBE编辑器。菜单栏点击 “插入”,点击 “模块”。插入一个模块
2、模块中,输入以下代码 Sub deleteStyles()Dim s As Style On Error Resume
Next For Each s In ThisWorkbook.Styles If Not s.BuiltIn Then
s.Delete Next MsgBox "所有讨厌的自定义格式都删除啦!"End Sub(可以按照图中调整)
3、在运行代码前请保存工作簿。安全起见,请保存一份工作簿副本。保存的时候,会出现如图所示提示。如果不想保留这段代码,直接点击 [是] ,若想保留代码以后用,点击 [否] ,然后在保存类型中选择“Excel启用宏的工作簿(*.xlsm)”
4、运行代码。鼠标在输入的代码中任意位置点击一下,确保运行的是当前代码。点击工具栏上的绿色三角图标,运行代码。代码运行需要一点时间。请耐心等待
5、等出现如图提示时,说明代码运行完毕,自定义单元格样式已全部删除
1、如图,出现此错误提示时,我们查看下单元格样式。因为自定义的单元格样式太多,导致Excel存储的单元格样式数量达到了Excel的上限(Excel 2003上限是4000个,Excel2007以后是64000个),所以,Excel会报错。
2、选中一个格式,右键-删除。好的。这样就删除了一个。但是这样删除也很费事。
3、按Alt+F11键,打开VBE编辑器。菜单栏点击 [插入] ,点击 [模块]。插入一个模块。
4、模块中,输入以下代码Sub deleteStyles()Dim s As Style On Error Resume Next For Each s In ThisWorkbook.Styles ;If Not s.BuiltIn Then s.Delete Next MsgBox "所有自定义格式都删除啦。
复制这断代码到你的模块中,对照图调整。
5、此段代码运行后将删除所有自定义单元格样式,但保留Excel自带的单元格样式在运行代码前请保存工作簿。保存的时候,会出现如图所示提示。如果不想保留这段代码,直接点击 [是] ,若想保留代码以后用,点击 [否] 。
然后在保存类型中选择“Excel启用宏的工作簿(*.xlsm)”。
6、运行代码。鼠标在输入的代码中任意位置点击一下,确保运行的是当前代码。点击工具栏上的绿色三角图标,运行代码。代码运行需要一点时间。请耐心等待。
等出现如图提示时,说明代码运行完毕,自定义单元格样式已全部删除。