单元格格式删不下去

lmn4781 · 发表于 2019-2-25 14:25

表格中的单元格格式删不下去，用了VBA
Sub deleteStyles()
Dim s As Style
On Error Resume Next
For Each s In ThisWorkbook.Styles
If Not s.BuiltIn Then s.Delete
Next
MsgBox "所有讨厌的自定义格式都删除啦！"

End Sub

这个程序，运行之后没有什么效果，单元格格式还是存在，又用了全选删除单元格格式，也没有用，一直就是图片的样子。单独删除也删除不下去。请教大神们，这种情况应该怎么办，快被折磨疯了

IVYQQQQQ · 发表于 2019-2-25 14:42

Sub 清除格式()
Cells.ClearFormats
End Sub

复制代码

lmn4781 · 发表于 2019-2-25 16:37

IVYQQQQQ 发表于 2019-2-25 14:42

你好敲入代码运行之后，提示宏被禁止。这需要怎么操作

IVYQQQQQ · 发表于 2019-2-25 16:45

lmn4781 发表于 2019-2-25 16:37
你好敲入代码运行之后，提示宏被禁止。这需要怎么操作

宏安全性调整一下看看！

lmn4781 · 发表于 2019-2-25 16:53

IVYQQQQQ 发表于 2019-2-25 16:45
宏安全性调整一下看看！

还是不行，依然提示被禁止

刀羊 · 发表于 2019-2-25 19:28

把你数据文件上传一下看看？

lmn4781 · 发表于 2019-2-26 08:30

是这样的表

lmn4781 · 发表于 2019-2-26 08:31

刀羊发表于 2019-2-25 19:28
把你数据文件上传一下看看？

你好，数据表已经上传，受累看下，谢谢

爱疯 · 发表于 2019-2-26 08:50

复制到新的空白工作表，选择性粘贴值，可以吗

lmn4781 · 发表于 2019-2-26 08:52

爱疯发表于 2019-2-26 08:50
复制到新的空白工作表，选择性粘贴值，可以吗

这个方法试了不管用

		自动登录	找回密码
密码			免费注册

[求助] 单元格格式删不下去