工作软件excel批量删除单元格 样式

1、录制宏

2、位置：个人宏工作簿

3、1. 若出现以下情况，按在视图---〉取消隐藏窗口

4、1. 停止录制宏

5、1. 查看宏

6、1. 编辑宏

7、1. 宏所有内容替换为 “批量删除单元格样式.txt ”中的内容（将下面的代码用TXT文件保存：

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

     For Each s In ActiveWorkbook.Styles

         'MsgBox s.Name

         On Error Resume Next

         If Len(s.Name) > 0 And s.Name <> "Normal" Then

             s.Delete

         End If

         If Err.Number > 0 Then

             e = "Error occour on deleting Style named " & s.Name

             e = e & vbCrLf & "Err:" & Err.Number & "->" & Err.Description

             MsgBox e

             Err.Clear

         End If

     Next

 End Sub

8、1. 关闭文件后保存宏

9、1. 查看宏，运行该宏就可以保存为 97-2003 格式