Excel VBA更改for循环的参数

我试图创建一个通过列运行的计数，检查值是否在指定的条件之间，而不是计算有效的值

但我试图将它嵌套在另一个for循环中，所以一旦它完成第一个类别

x=4
y=13
So For a= x To y
Runs Code

then i want it to run

For a = 14 To 27
code code code

x= x+14
y= y+14

For a = 28 to 41 
etc....

这是我的密码

---

我重读了你的问题，你可能错过了下面的另一个循环

Do
    For a = x To y
        For b = 2 To lr
            If Cells(b, 2) >= Cells(a, 10) Then c = c + 1
            If Cells(b, 2) >= Cells(a, 11) Then d = d + 1
            Range("L" & a).Value = c
            Range("M" & a).Value = d
        Next b
        c = 0
        d = 0
    Next a
    x = x + 14
    y = y + 14
    Range("O1").Value = x
    Range("P1").Value = y
Loop Until "Set condition here"

---

然而，我仍然误解了您的问题，请对澄清进行注释。

For Loop不是这样工作的。即使在其中更改x，a仍将具有x的第一个值，即4。现在您想如何增加a，还不清楚。首先你给它赋值4，然后是14，然后是28？如果你坚持+14间隔，不是4，18，32吗？或者我错过了什么。谢谢！我让它工作，在开始时插入了一个while循环！伟大的如果解决方案对您有效，请参阅。这将帮助您赢得声誉，并吸引更多用户在未来帮助您。

Do
    For a = x To y
        For b = 2 To lr
            If Cells(b, 2) >= Cells(a, 10) Then c = c + 1
            If Cells(b, 2) >= Cells(a, 11) Then d = d + 1
            Range("L" & a).Value = c
            Range("M" & a).Value = d
        Next b
        c = 0
        d = 0
    Next a
    x = x + 14
    y = y + 14
    Range("O1").Value = x
    Range("P1").Value = y
Loop Until "Set condition here"