q1初始值为1，计算工作表（j1:p1,j3:m1428)区域，q1=q1+1,如果满足p1=m1428。。。。。

李嘉图0513

1. sub
   
2. q1=1
   
3. 如果找到10个值为止
   
4. 循环 重新计算工作表（J1：Q1，J3：J1428），
   
5.    如果P1=L1428，吧J1428的值赋给O1428
   
6.      Q1=Q1+1 赋值从O1428到X1428共10个
   
7.      否则
   
8.    Q1=Q1+1

复制代码

完整叙述为，q1初始值为1.计算工作表(j1:q1,j3:l1428)区域，如果p1=L1428，把J1428的值输出到O1428，然后q1=q1+1,即q1值在原有基础上+1，重新计算工作表(j1:q1,j3:l1428)区域，如果p1=L1428，把J1428的值输出到P1428，直到找到10个值未知，否则q1的值一直增1！
希望VBA的高手的耐心看完！
我用伪代码表述一下：

李嘉图0513

{:soso_e147:}见到这个代码，你是否有什么感触呢？
那就拯救我吧！
VBA高手，对我的一座山，对你就是一张纸。你轻轻地走过，给我留下了极大的帮助！{:soso_e112:}

jgz2k

逻辑好像有问题，如果p1=L1428，就将J1428的值输出到O1428，P1428....???

jgz2k

另外如果p1不等于L1428，则怎么处理？q1加到１０，然后结束？

李嘉图0513

jgz2k 发表于 2012-11-30 23:59
另外如果p1不等于L1428，则怎么处理？q1加到１０，然后结束？

这是一个循环，你没有看出来！不等于，就+1重算！

jgz2k

你比较的是p1,加的是q1,p1永远不变，怎么比？？上附件吧。