Excel中自定义样式太多，怎么删除？

wcwcok · 发表于 2012-5-30 14:04

本帖最后由 wcwcok 于 2012-5-30 14:05 编辑

见图片

请大伙看完我说的所有内容。。。。。

线索一：我试过新建一个excel，把内容复制过去。但只要一复制，新的excel中也就出现了那么多的“自定义样式”，平时复制框右下角出现的选项图标（可选择“只有值”“匹配目标格式”等的那个图标）也不出来。

线索二：上次出现这个情况的时候，我所有保存的格式都不见了，如：字体颜色、底色、边框等，文档所有内容都只剩下光秃秃的文字。

线索三：希望大家的提议是能解决这个问题的，这是我们公司所做的报表，几十页，每页N多图，不可能重新做，而且根据线索一，不能复制其中的内容。

线索四：希望一定要解决，因为线索二与线索三，如果不解决也许那天一保存，所有字体、颜色、边框全没了，就歇菜了。

wcwcok · 发表于 2012-5-30 14:38

本帖最后由 wcwcok 于 2013-1-30 15:12 编辑

在论坛里找了一会，解决了
公布一下解决方法，让不懂编程的人能看懂

打开要处理的excel表格，按Alt+F11。

会弹出一个VB编辑器，就是一个新的界面。

双击图片1中所示的标志。

在弹出的新对话框中点“通用”再点“worksheet”

把编辑框中的内容改成
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sub test()
Dim mystyle As Style
For Each mystyle In ActiveWorkbook.Styles
If mystyle.BuiltIn = False Then mystyle.Delete
Next
End Sub

然后点左上方的运行按钮，如图2

然后就OK啦，见图3，干干净净的啦

其实我希望以后高手回答都能到这样的程度，才能让像我这样的小白能看懂。

PS：
我的版本是office2007
如果提示未启动宏，或宏被禁止之类的话，请查阅http://wenku.baidu.com/view/b5f99978a26925c52cc5bf49.html教你如何启动宏

rbq555 · 发表于 2012-5-30 20:54

不错，学习了，支持一下！

wcwcok · 发表于 2012-10-9 09:23

补充一下，是OFFICE 2007的版本

「`=^.^=★ · 发表于 2012-10-9 09:44

为什么提示说类style的delete无效？请问，我的实在是删不掉了。。。

无语问天 · 发表于 2012-10-29 08:46

我也是提示类style的delete无效？请问，我的实在是删不掉了。。。

yusacool · 发表于 2013-3-22 14:51

提示：“类style的delete方法无效”，没删掉{:soso_e109:}

wwwruc · 发表于 2013-8-22 10:13

2楼给的方法无效。程序有问题。

楊波 · 发表于 2014-1-23 14:51

wcwcok 发表于 2012-5-30 14:38
在论坛里找了一会，解决了
公布一下解决方法，让不懂编程的人能看懂

有没有重置自定义样式的方法，比如说我定义了ABCDEF六种样式，然后使用表格的时候到处复制，导致表格中生成了很多自定义样式，能否通过VBA将多余的自定义样式全部删除，只剩下我自己定义的ABCDEF六种样式？

太乖的孩子 · 发表于 2015-5-13 11:34

弹出编译错误：缺少End Sub 窗口，怎么回事呢？

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

[求助] Excel中自定义样式太多，怎么删除？