问现这一问题的原因，主要是在工作簿内设置的格式过多，引起冲突而造成，比如长期从其他表格中复制内容粘贴过来，或者经常设置新的自定义样式。
一旦工作簿中设置的自定义样式过多，Excel就没法兼容了，所以会出现错误特征描述。下面小编就分享一下解决的办法。
解决方法：
-
一、手工删除法
1.在打开excle文件上，点击“单元格样式”。
-
2.在“单元格样式”下拉菜单中，鼠标右键点击多余的样式进行删除。这种手动删除的方法有些麻烦，那么我们接着往下看。
-
二、宏脚本法
1.在excle文件的菜单栏选择"开发工具"，启动Visual Basic编辑器，或者用快捷键“Alt+F11”打开。
-
2.点击右上角的“visual basic”打开。
-
3.选择其中一个sheet，输入下列代码：
Sub test()
Dim mystyle As Style
On Error Resume Next
For Each mystyle In ActiveWorkbook.Styles
If mystyle.BuiltIn = False Then mystyle.Delete
Next
End Sub
-
点“运行”，在下拉菜单中点“运行子过程/用户窗体”，或直接按快捷键F5。
- 7
“运行”之后，再次点击“运行”，就可以删除那些自定义的样式了，Excel文件格式丢失的情况就解决了。
删的比较彻底
Sub test()
Dim mystyle As Style
On Error Resume Next
For Each mystyle In ActiveWorkbook.Styles
If mystyle.BuitIn = False Then mystyle.Delete
Next
End Sub
还有残留
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sub test()
Dim mystyle As Style
For Each mystyle In ActiveWorkbook.Styles
If mystyle.BuiltIn = False Then mystyle.Delete
Next
End Sub
|
