自动清除表格中某一特定数值的方法

fgdgm · 发表于 2017-5-29 17:43

请教高手一个如何自动清除表格中某一特定数值的方法

zax010 · 发表于 2017-5-29 17:55

[e:s].Replace 0.5, ""

fgdgm · 发表于 2017-5-29 18:05

这么快，真是高手

DevilW · 发表于 2017-5-29 18:05

zax010 发表于 2017-5-29 17:55
[e:s].Replace 0.5, ""

精辟，原来我写还带 What 和 Replacement 参数

fgdgm · 发表于 2017-5-29 18:19

zax010 发表于 2017-5-29 17:55
[e:s].Replace 0.5, ""

再问高手，出现新问题，我只要单元格的数值为0.5的时候自动去除0值，你的代码把我其他单元格中的公式含有0.5的也清除了，有什么办法只清除单元格的数值，而不清除公式中的0.5？

fgdgm · 发表于 2017-5-29 18:43

zax010 发表于 2017-5-29 17:55
[e:s].Replace 0.5, ""

还有，如果把清空单元格的条件变为“数值小于0.5的单元格”都清空，代码怎么写？

zax010 · 发表于 2017-5-29 19:21

fgdgm 发表于 2017-5-29 18:19
再问高手，出现新问题，我只要单元格的数值为0.5的时候自动去除0值，你的代码把我其他单元格中的公式含有 ...

[e:s].Replace 0.5, "", xlWhole

zax010 · 发表于 2017-5-29 19:25

fgdgm 发表于 2017-5-29 18:43
还有，如果把清空单元格的条件变为“数值小于0.5的单元格”都清空，代码怎么写？

逐单元格循环比较，清空。

fgdgm · 发表于 2017-5-29 23:36

zax010 发表于 2017-5-29 19:25
逐单元格循环比较，清空。

如何逐单元格循环比较？

zax010 · 发表于 2017-5-30 11:09

fgdgm 发表于 2017-5-29 23:36
如何逐单元格循环比较？

看你也是老鸟了，这么简单的问题也不会？

Dim c As Range
For Each c In [e4:s112]
If c.Value < 0.5 Then c = ""
Next

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

[求助] 自动清除表格中某一特定数值的方法