批量删除单元格格式

在公司使用EXCEL表因为借过来借过去，表格内使用的格式过多，导致EXCEL丢失格式，可以使用此代码清除后保存（注：代码非本人编写，本人仅搬运）。

请试验此教程前提前备份文件，虽然不会改变表格内容，但是担心EXCEL不稳定崩掉。

1、如下图红色框线位置，单元格格式非常多，由于是借用的别人的EXCEL表，实际用不

到这些格式，而EXCEL储存格式是有上限的，偶尔会因为格式太多导致整个EXCEL表的单元格格式丢失，而表格内只能一个一个手动删，比较麻烦，故使用宏命令。

2、打开需要清除单元格格式的表格，按ALT+F11（注：个人习惯使用快捷键，需要详细常规步骤自行搜索关键词：excel宏的使用教程），将会弹出如下窗口，这个时候可能会没有代码窗口，需要调出代码窗口

调出代码窗口如下图，找到上方的：视图，再找到代码窗口，点击。或者直接按F7

点击之后将出现如下窗口（部分人ALT+F11后直接有代码窗口）

2、将宏代码复制粘贴进图示空白处位置

宏命令代码如下：

Sub 批量删除单元格样式()

EX:

For i = 1 To ActiveWorkbook.Styles.Count

On Error Resume Next

ActiveWorkbook.Styles(i).Delete

Next i

If ActiveWorkbook.Styles.Count <> 1 Then GoTo EX

End Sub

4、运行代码，找到下图位置的运行运行子程序/用户窗体（直接按快捷键F5也可）

5、等待清理完成，关闭EXCEL表格，点保存。

6、打开表格，清理完成。

注意：因为我所在的公司一些表格内容需要复制来复制去的，如果别的表格还是很多单元格式的话，可以复制完了之后再清理一下自己的表格。

Time_off 手打

2020.5.19