EXCEL格式丢失处理方法

lqs1234

EXCEL格式丢失处理方法

突然发现Excel表格里面的格式全没了，只剩下文字、数字，但之前辛辛苦苦画制的框线、颜色、格式等全没了！这是怎么回事呢？
        这是因为Excel整天记录样式造成的，特别是当你从旧的Excel中复制带有格式的数据过来，粘贴时又没有选择“仅数值”时，这种滚雪球式的样式积累更是严重，于是终于有一天，样式“爆表”了，就全没了，只留下无数的“样式”记录在你的“开始”-“样式”的下拉菜单中。下面我们要做的就是清除这些样式，给表格减压。

方法一：VBA宏脚本，自动删除所有样式，是所有！
        在excel菜单栏内找到“开发工具”--“visual basic”（如果没找到开发工具，在Excel选项的常规中钩上“功能区显示开发工具”就有了）--双击sheet1（如果是一片空白，则请选择“视图”--“工程资源管理器”就有显示了，其实双击其中任意一个表格对象都行）--将以下代码替换掉右侧弹出来的代码：
Sub X()
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
直接按F5或者点击“运行”-“运行宏”运行一下。
切回表格看下，里面的样式是不是全没了。

方法二：VBA宏脚本，自动删除所有自定义样式，只保留系统默认样式！
同上，只是代码改为：
Sub test()
Dim mystyle As Style
On Error Resume Next
For Each mystyle In ActiveWorkbook.Styles
    If mystyle.BuiltIn = FalseThen mystyle.Delete
Next
End Sub
运行，搞定！

iii999sss

感谢楼主的分享

shzm55

学习了 感谢分享！