优化楼上代码
Dim Tagg as Boolen
For k3=68 to 150
if Tagg=True then exit for
if ye(ke)= 150 then
Tagg=True
end sub
没试过,应该有效
另外,发现你的一些问题
严重错误:
你的For循环的计数器就是K3,也就是说,没完成一个循环,K3的值都会+1直到等于150退出循环
这意味着,你的K3不可能只有两个值,同时,K3是不受你的控制的
或者说你是要遍历一个数组内的所有数据,发现对应数据则进行操作?
如果是这样,就不需要我们改动了
普通错误:
没有输出语句
[
本帖最后由 renxiaoyao36 于 2015-5-9 13:13 编辑 ]