不同单元格格式太多的删除方法

按Alt+F11键，打开VBE编辑器。菜单栏点击 [插入] ，点击 [模块]。插入一个模块

但这段代码解决不了一堆比如以下划线开头的僵尸单元格样式（也就是你直接右键单击删除不掉的顽固样式，这些样式日积月累产生的，具体原因不详，也许是微软没解决的bug）

Sub delstylelzj()

Dim mystyle As Style

On Error Resume Next

For Each mystyle In ActiveWorkbook.Styles

If mystyle.BuiltIn = False Then mystyle.Delete

Next

End Sub

然后关闭这个vba窗口，如下图执行代码

结果，杯具了，我这个工作簿里的单元格样式，一个也没删掉！NND

怎么办？以下有3招，第一招：

1-复制粘贴

全选当前样式很多的工作表，复制，新建一个工作簿，粘贴。

我这个工作簿就是这样搞定的。

然后检查，发现开始里的单元格样式里的样式都是正常的内置的标准样式了，没有那些乱七八糟的几千个样式了。。。

2-移动工作表

右键单击有问题的工作表名，移动或复制，新工作簿，勾选建立副本，

然后就有了一个新的工作簿，检查下发现那些乱七八糟的样式也没有了。

如果上面2种方法，你都没搞定，那么献上最后一招，

非常恐怖的勾魂大法！！！

3-勾魂大法

把当前工作簿复制一个副本，

然后把副本比如叫1.xlsx的扩展名改为rar，如下图示

（ps，如果你是xls文件，先另存为xlsx文件，然后关闭后改名为rar）

打开这个rar文件，找到xl文件夹打开，

选中里面的styles.xml文件按delete删除

关闭rar压缩文件，再次改名，把rar改为xlsx

打开这个excel工作簿，excel提示有问题，点是

这时检查发现，单元格样式里的乱七八糟的样式确实没了。

如下图所示。

但是当前表格里的一些颜色格式什么的，也全部丢失了。

那么怎么办呢，打开你的有问题的工作簿原文件，

全选表格，格式刷，然后刷到那个新的工作簿里

就是用刷子单击全选按钮（在表格左上角的三角形位置，见下图方框）

此时应该搞定了。

所有乱七八糟的样式也没了。

如果还是不行，

恩，我暂时没有办法了。

说出您的方法，当然也可以通过留言与我交流互动。