表内自定义单元格样式太多了,超出了03的格式数量限制,导致无法再添加格式,要么就存成07版本的,要么把内容复制下,新建张表,再选择性粘贴数值
也可用如下代码批量清除自定义样式:
Sub test()
Dim sty As Style
For Each sty In ActiveWorkbook.Styles
If Not sty.BuiltIn Then sty.Delete
Next
End Sub
复制代码
运行完毕保存工作簿再打开就好了
你用10的做好以后点击 文件》选择 另存为》在保存类型 里面选择》》》97-2003工作簿》》》》》再点击保存就OK了,
将后缀改为X LS即可