单元格自定义格式出现无数个，删除不完是怎么回事？

ylaxsm · 发表于 2019-8-20 20:56

某人说有个表格，有许多“自定义格式”，其说不知道是怎样来的，怎么会出现这种情况（如图所示）。
请大家看看，这究竟是怎样回事？如何删除？

changhong8 · 发表于 2019-8-20 21:11

汇总了大量的表吧，估计发出去的被人复制进来好多自定义格式的单元格。用代码删除非内置样式就行了

changhong8 · 发表于 2019-8-20 21:16

删除之前29319个样式，删除后剩44个内置样式

changhong8 · 发表于 2019-8-20 21:16

Sub delete_style()
Dim stl As Style
For Each stl In ActiveWorkbook.Styles
If Not stl.BuiltIn Then stl.Delete
Next
End Sub

小小不不 · 发表于 2019-8-20 22:19

重新卸载安装试试看

KIKI. · 发表于 2019-11-6 14:11

changhong8 发表于 2019-8-20 21:16
Sub delete_style()
Dim stl As Style
For Each stl In ActiveWorkbook.Styles

感谢大神，两分钟解决问题。

sparkmyself · 发表于 2019-11-9 21:38

changhong8 发表于 2019-8-20 21:16
Sub delete_style()
Dim stl As Style
For Each stl In ActiveWorkbook.Styles

不行啊大神，总是说我是工作表保护了，但是根本没有保护啊

changhong8 · 发表于 2019-11-10 06:27

sparkmyself 发表于 2019-11-9 21:38
不行啊大神，总是说我是工作表保护了，但是根本没有保护啊

文件传上来

		自动登录	找回密码
密码			免费注册

[求助] 单元格自定义格式出现无数个，删除不完是怎么回事？