EXCEL不同单元格格式太多

EXCEL复制,移动,或者操作时 弹出以下错误:不同单元格格式太多
在这里插入图片描述
操作前,请先将EXCEL 复制一份,以免操作出错,EXCEL无法打开(非常重要!!!)
按Alt+F11键(有些电脑需要点击Alt+Fn+F11),打开VBA编辑器。菜单栏点击 [插入] ,点击 [模块]。插入一个模块
如果电脑打开了多个EXCEL ,要先点击一下要处理的VBA Project
在这里插入图片描述

模块中,输入以下代码:
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
复制这断代码到你的模块中,对照图调整
在这里插入图片描述
点击执行按钮 ,开始运行,此过程比较长(10~30min 左右),务必耐心等待,此时点击EXCEL 会出现卡死现象,不要担心,等待就可以
在这里插入图片描述
等出现如图提示时,说明代码运行完毕,自定义单元格样式已全部删除。
在这里插入图片描述
此时我们进行EXCEL工作表 复制或移动时,还可能出现如下提示“工作表包含名称…,您希望继续使用这个名称吗?“

如果工作表包含名称较多的话,点击“是”之后,还可能会弹出类似的窗口,提示包含别的名称,如此反复,直到每一个名称都点过“是”之后,才能移动或复制工作表。
继续在VBA编辑器,打开菜单,“视图—立即窗口”;
在这里插入图片描述
粘贴下面的代码到立即窗口里,for each n in names : n.visible = true : next 然后光标放在这行上,回车。这样隐藏的名称就出来了
在这里插入图片描述
操作完成后,关闭VBA编辑器
在EXCEL 中选择 公式->名称管理器
在这里插入图片描述
按住shift 选择第一个和最后一个名称,选中所有名称
点击删除 ,将名称删除
在这里插入图片描述
操作完成后,保存EXCEL。
保存的时候,会出现如图所示提示。如果不想保留这段代码,直接点击 [是] ,若想保留代码以后用,点击 [否] ,然后在保存类型中选择“Excel启用宏的工作簿(*.xlsm)”

建议选[是]即可。
在这里插入图片描述

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值