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

录制宏

位置：个人宏工作簿

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

1. 停止录制宏

1. 查看宏

1. 编辑宏

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

1. 关闭文件后保存宏

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