求批量删除“单元格样式”的办法

zhuying0511 · 发表于 2015-2-12 16:44

本帖最后由 zhuying0511 于 2015-2-13 09:59 编辑

Q0127 CBE_Structure Material Summary.zip (455.78 KB, 下载次数: 14)

有个表格，里面塞满了各种乱七八糟的格式，有没有vba可以一次性把格式中类似于“？？*”的都删掉？

比如我瞎写一个给大神领会下意思,
sub 看着就烦（）
dim fuk as style
for each fuk in styles
if fuk like "??*" then
.delete
,......

战战如疯 · 发表于 2015-2-12 16:59

这哪是格式，这是乱码吧，而且你附件里好像啥都没有

sp008 · 发表于 2015-2-12 18:06

有个clean函数不知能否好用

jpj123 · 发表于 2015-2-12 19:41

你的附件中空空的，请重新上传!

zhuying0511 · 发表于 2015-2-13 10:00

战战如疯发表于 2015-2-12 16:59
这哪是格式，这是乱码吧，而且你附件里好像啥都没有

更新了附件，有时间帮忙看看，谢谢

zhuying0511 · 发表于 2015-2-13 10:00

jpj123 发表于 2015-2-12 19:41
你的附件中空空的，请重新上传!

更新了附件，有时间帮忙看看，谢谢

战战如疯 · 发表于 2015-2-13 11:39

一个工作簿里64000多个样式，你这是要怎样。。。

Sub test()
Dim i, sty
For Each sty In ThisWorkbook.Styles
i = i + 1
Cells(i, 1) = sty.Name
Next
End Sub

复制代码

这只是列举出名字，要删除用sty.delete就可以，判断条件按自己的要求加吧

战战如疯 · 发表于 2015-2-13 11:40

Q0127 CBE_Structure Material Summary.rar (830.9 KB, 下载次数: 47) 64014个样式，普通的Excel只有40几个

zhuying0511 · 发表于 2015-2-13 13:07

战战如疯发表于 2015-2-13 11:39
一个工作簿里64000多个样式，你这是要怎样。。。
这只是列举出名字，要删除用sty.delete就可以，判断条件按 ...

客户丢过来的，表格之前经过他们欧洲的，韩国的，日本的工厂和供应商的各种折腾，然后就这样了
。谢了

jwcxl · 发表于 2016-1-27 23:32

Sub DelCustomStyles()
Dim st As Style
For Each st In ActiveWorkbook.Styles
If Not st.BuiltIn Then st.Delete
Next
End Sub

这个包好~！自己试过~！

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

[求助] 求批量删除“单元格样式”的办法