有时EXCEL会自动将一此不需要的格式添加入本地电脑,用以下命令删除非系统自带格式
Sub DeleteStyles()
Dim s As Style
On Error Resume Next
For Each s In ThisWorkbook.Styles
If Not s.BuiltIn Then s.Delete
Next
End Sub
有时EXCEL会自动将一此不需要的格式添加入本地电脑,用以下命令删除非系统自带格式
Sub DeleteStyles()
Dim s As Style
On Error Resume Next
For Each s In ThisWorkbook.Styles
If Not s.BuiltIn Then s.Delete
Next
End Sub
转载于:https://my.oschina.net/tedzheng/blog/1924523