首页 > 办公 > Excel > 正文

Excel样式乱码修复方法(批量删除excel样式)

2024-08-23 19:39:52
字体:
来源:转载
供稿:网友
过节的时候遇到一个求救,一个很小的问题,但是却让客服觉得是天大的事情,本着助人为乐的想法,我还是按照约定的时间前往,纵然我要做奶爸,纵然老天不给力下起了雨。
症状:一个包含N多个工作簿N多条数据的Excel突然间样式全部乱码了(类似这个),导致之前的一些格式起不了作用(主要是时间,变成了数字),虽然之前我让客户通过选择性粘贴的方法解决,当时当数据换到其他电脑的时候还是不行,于是找了一下方法,还真有。



方法:1.按Alt+F11打开VBA编辑器,在代码窗口中输入下列代码:

ASP/Visual Basic Code复制内容到剪贴板
  1. Sub DelCustomStyles()       Dim st As Style   
  2.    For Each st In ActiveWorkbook.Styles         If Not st.BuiltIn Then st.Delete   
  3.    Next      End Sub  
2.关闭VBA编辑器,返回Excel界面。按Alt+F8,打开“宏”对话框,执行“DelCustomStyles”宏即可一次删除所有自定义单元格样式,而内置的单元格样式会保留。
就这么简单,我运行了一下,删除了将近上千个样式,估计是表格在转换的过程中出了问题。
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表