[已解决]仅后面数字递增，怎么改成用代码

cys888

求助：以下代码仅“运行1、运行2、运行3......”数字在递增，其他代码都一模一样，由于用笨方法需要到写到“运行999”，量太大了，求助如何用VB实现简化。


Sub 测试()
For i = 1 To 1000000
Application.Run "常30规.xlsm!Sheet21.运行1"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Application.Run "常30规.xlsm!Sheet21.运行2"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Application.Run "常30规.xlsm!Sheet21.运行3"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Application.Run "常30规.xlsm!Sheet21.运行4"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Application.Run "常30规.xlsm!Sheet21.运行5"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Application.Run "常30规.xlsm!Sheet21.运行6"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Application.Run "常30规.xlsm!Sheet21.运行7"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Application.Run "常30规.xlsm!Sheet21.运行8"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Application.Run "常30规.xlsm!Sheet21.运行9"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Application.Run "常30规.xlsm!Sheet21.运行10"
  If [A3] <= 2 Or [A8] <= 1 Then
  Exit Sub
  End If
Next
End Sub

最佳答案

月排行榜 / 总排行榜

砂海

2023-7-21 15:17

没有附件 , 无法测试
===================================
Sub 测试()
    For i = 1 To 1000000
        For j = 1 To 999
            Application.Run "常30规.xlsm!Sheet21.运行" & j
            If [A3] <= 2 Or [A8] <= 1 Then Exit Sub
        Next j
  Next i
End Sub
========================================
PS:
[A3] 写为 range("A3") ,运行效率更高

跳转到最佳答案楼层

砂海

没有附件 , 无法测试
===================================
Sub 测试()
    For i = 1 To 1000000
        For j = 1 To 999
            Application.Run "常30规.xlsm!Sheet21.运行" & j
            If [A3] <= 2 Or [A8] <= 1 Then Exit Sub
        Next j
  Next i
End Sub
========================================
PS:
[A3] 写为 range("A3") ,运行效率更高