[已解决]急，求助：简化代码

sunjing-zxl

回复 759857387 的帖子

因为你没有附件，所以无法测试。。

759857387

回复 sunjing-zxl 的帖子

帮忙看看http://www.excelpx.com/thread-181653-1-1.html再给你一个最佳答案

那么的帅

回复 联想 的帖子

老师，你那个代码用什么工具编辑的，可以分享一下吗？

[CODE]
代码放在这里
[/ CODE]

上面的代码是为了让你看到，实际使用中，把下面 斜杠后面的空格要去掉

759857387

回复 sunjing-zxl 的帖子

经过一段时间测试，发现有个问题请教老师：
问题描述：定时器刷新后，出现多个满足If .Range("F" & i) > -0.01 And .Range("F" & i) < 0.01 Then的结果， .Range(.Range("G2"), .Range("K2")) = .Range(.Range("G" & i), .Range("K" & i)).Value 只写入第一个结果并发送。
寻求结果：想让i中满足条件且不重复的都对应写入。
请老师帮忙完善代码，谢谢。