如何删除工作表中所有红色数据

1274407586 · 发表于 2019-1-20 21:00

如何遍历工作表中所有红色数据用vba代码，我搞不定。。先谢谢啦

dsmch · 发表于 2019-1-20 21:23

基本操作，替换，选项，格式，字体红色，替换内容：空值

1274407586 · 发表于 2019-1-20 21:26

dsmch 发表于 2019-1-20 21:23
基本操作，替换，选项，格式，字体红色，替换内容：空值

vba代码因为很多表和数据这个只是示例。

清风竹- · 发表于 2019-1-20 21:30

请看附件。

chentonny · 发表于 2019-1-20 21:37

这个比较好处理。

1274407586 · 发表于 2019-1-20 21:59

清风竹- 发表于 2019-1-20 21:30
请看附件。

Sub 删除红色数据() '
For Each a In [a1].CurrentRegion
With a
If .Font.ColorIndex = 3 Then a.Value = ""
End With
Next a
End Sub

非常感谢我太菜了

1274407586 · 发表于 2019-1-20 22:01

chentonny 发表于 2019-1-20 21:37
这个比较好处理。

都很好感谢。我差太远了谢谢你！！

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

[求助] 如何删除工作表中所有红色数据