两个for next时第一个for执行不全

pinezh

求助大神，如下 两个for next时第一个for执行不全，怎么解决啊？不管分开还是一起，第一个for只执行一次，单独的时候可以执行完，找不到原因。

Sub osexcursion()

Call os187
Call os620

End Sub

Sub os187()
j01 = 2
For i01 = 2 To WorksheetFunction.Count(Worksheets("YS").Range("J:J"))
    If Worksheets("YS").Cells(i01, 20) / Worksheets("YS").Cells(i01, 10) > 0.06 And Worksheets("YS").Cells(i01, 10) > 500 Then    '187:u-Short  >6%
    Worksheets("EXCU").Cells(j01, 1).Value = Worksheets("YS").Cells(i01, 4)
    Worksheets("EXCU").Cells(j01, 2).Value = Worksheets("YS").Cells(i01, 5)
    Worksheets("EXCU").Cells(j01, 3).Value = Worksheets("YS").Cells(i01, 10)
    Worksheets("EXCU").Cells(j01, 4).Value = Worksheets("YS").Cells(1, 20)
    Worksheets("EXCU").Cells(j01, 5).Value = Worksheets("YS").Cells(i01, 20)
    Worksheets("EXCU").Cells(j01, 6).Value = Worksheets("EXCU").Cells(j01, 5) / Worksheets("EXCU").Cells(j01, 3)
    Worksheets("EXCU").Cells(j01, 7).Value = 0.06
    j01 = j01 + 1
    End If
Next
End Sub

Sub os620()
j02 = WorksheetFunction.Count(Worksheets("EXCU").Range("E:E"))
For i02 = 2 To WorksheetFunction.Count(Worksheets("YS").Range("J:J"))
    If Worksheets("YS").Cells(i02, 21) / Worksheets("YS").Cells(i02, 10) > 0.03 And Worksheets("YS").Cells(i02, 10) > 500 Then  '620:ず糷祏隔 >3%
    Worksheets("EXCU").Cells(j02, 1).Value = Worksheets("YS").Cells(i02, 4)
    Worksheets("EXCU").Cells(j02, 2).Value = Worksheets("YS").Cells(i02, 5)
    Worksheets("EXCU").Cells(j02, 3).Value = Worksheets("YS").Cells(i02, 10)
    Worksheets("EXCU").Cells(j02, 4).Value = Worksheets("YS").Cells(1, 21)
    Worksheets("EXCU").Cells(j02, 5).Value = Worksheets("YS").Cells(i02, 21)
    Worksheets("EXCU").Cells(j02, 6).Value = Worksheets("EXCU").Cells(j02, 5) / Worksheets("EXCU").Cells(j02, 3)
    Worksheets("EXCU").Cells(j02, 7).Value = 0.03
    j02 = j02 + 1
    End If
Next

End Sub



补充内容 (2019-12-6 19:58):
(已解决)

盼哥

请把附件传上来，我帮你调试下。

pinezh

盼哥 发表于 2019-11-8 20:13
请把附件传上来，我帮你调试下。

附件，大神看看

renkangjizhen

第一段代码编写有问题：call函数是链接不同代码段之间的桥梁，call啥，也就是执行完上一段代码后，紧接着要运行啥代码。两个call 顺联，其中一个必然失效。把第二句call移到第二段代码的end sub上面，则三段代码依次运行，所有目的就全达到了

pinezh

renkangjizhen 发表于 2019-11-8 20:28
第一段代码编写有问题：call函数是链接不同代码段之间的桥梁，call啥，也就是执行完上一段代码后，紧接着要 ...

不行，实际是for next并列时第一个for next只执行一次的问题，跟call没得关系，不使用call也有一样的问题

wodewan

FOR 没有问题，问题出在你的那个函数用的COUNT计数，那只能算出只有有3行，第二次循环就将第一次的结果覆盖了。

pinezh

wodewan 发表于 2019-11-8 20:44
FOR 没有问题，问题出在你的那个函数用的COUNT计数，那只能算出只有有3行，第二次循环就将第一次的结果覆盖 ...

喔，第二个count计算有问题？

pinezh

wodewan 发表于 2019-11-8 20:44
FOR 没有问题，问题出在你的那个函数用的COUNT计数，那只能算出只有有3行，第二次循环就将第一次的结果覆盖 ...

感谢，解决了，函数+2可以

Jason_WangSS

你这个是查表的应用,论坛里有很多类似的,可以找一下

wodewan

pinezh 发表于 2019-11-8 20:52
感谢，解决了，函数+2可以

VBA 最好别用这种方式，COUNT是只对数字计数，空格什么的都不计数，用于循环的边界确定容易出错，一般都用类似于range.end(xlup).row的格式。另外，最好主程序先加个清除的命令，这样两次点击按钮不会出现数据重复。稍微改了改，附件供参考吧。