Excel有时出错，造成有很多的无用样式，甚至造成全部样式的丢失，这时，需要先清除这些错误的样式再进行修改。删除样式的代码如下：
Sub DelStyle()
Dim mystyle As Style
Dim n1 As Long
Dim n2 As Long
On Error Resume Next
For Each mystyle In ActiveWorkbook.Styles
n1 = n1 + 1
If mystyle.BuiltIn = False Then
mystyle.Delete
n2 = n2 + 1
End If
Next
MsgBox "本文档中共计有" & n1 & "种样式，其中" & n2 & "种样式未使用，已清除。使用本程序出现问题，请不要保存后退出，注意备份！"
End Sub
Excel有时出错，造成有很多的无用样式，甚至造成全部样式的丢失，这时，需要先清除这些错误的样式再进行修改。删除样...
知识点： 1.编辑表格：添加/删除行、列； 2.编辑表格的样式：字体样式，背景，边距，行距； 3.在excel表中...
在“终端管理”中删除无用终端
删除excel中不需要的列， 删除列中的回车，ctrl+h 替换ctrl+enter 导出excel到txt 把t...
删除images 清理无用的镜像 删除无用的容器
excel简单数据清晰 1.删除重复值：EXCEL有内置的功能，可以删除表中的重复值。它可以删除所选列中所含的重复...
Docker快速删除 Docker删除无效的容器 Docker删除无用镜像 停用全部运行中的容器 删除全部容器 停...
资源优化 删除无用图片 删除无用图片的过程，可以概括为下面这 6 大步。通过 find 命令获取 App 安装包中...
Excel中为文字添加删除线：ctrl + 5
iOS App瘦身 关于app瘦身，你能想到什么？ 删除无用类 删除无用方法 代码相似度分析 删除无用图片 无损压...
本文标题：删除Excel中无用的样式
本文链接：https://www.haomeiwen.com/subject/zcnzcxtx.html
网友评论