|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
求助大神,如下 两个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):
(已解决) |
|