Excel VBA循环x=x+;1.

Excel VBA循环x=x+;1.,vba,excel,Vba,Excel,我是Excel VBA的新手,我正在尝试创建一个循环,该循环的和为X=X+1,但当循环结束时,它将以最后一个X继续,不再开始。 这就是我所拥有的: For I = 1 To 3 J = 2 For K = 1 To J * 2 Step 1 Debug.Print K Next K Next I 这就是我得到的:12341234 我想得到的是:12345678910112 谢谢你提供的帮助。我以为这会解决我的问题,但它有点复杂。我需要这个,因为我正在用以

我是Excel VBA的新手,我正在尝试创建一个循环,该循环的和为X=X+1,但当循环结束时,它将以最后一个X继续,不再开始。 这就是我所拥有的:

For I = 1 To 3
    J = 2
    For K = 1 To J * 2 Step 1
        Debug.Print K
    Next K
Next I
这就是我得到的:12341234

我想得到的是:12345678910112

谢谢你提供的帮助。我以为这会解决我的问题,但它有点复杂。我需要这个,因为我正在用以下代码添加X,Y,Z格式的坐标:

For I = 1 To 6
X = 0
J = 10

RobApp.Project.Structure.Nodes.Create X = X + 1, 0, 0, J * (I - 1)
RobApp.Project.Structure.Nodes.Create X = X + 1, Range("N34") * 0.15, 0, J * 
(I - 1)

Next I
“X=X+1”是节点编号。我希望它是顺序的,1,2,3,4等等,当J在Z坐标中增加时。例如,对于第一行代码:

Node 1 = 0,0,0

Node 2 = 0,0,10

Node 3 = 0,0,20

等等

或者更确切地说,使用您最初计划的额外变量X:

X = 0
For I = 1 To 3
    J = 2
    For K = 1 To J * 2 Step 1
        X = X + 1
        Debug.Print X
    Next K
Next I

或者更确切地说,按照最初的计划使用额外的变量X:

X = 0
For I = 1 To 3
    J = 2
    For K = 1 To J * 2 Step 1
        X = X + 1
        Debug.Print X
    Next K
Next I

你的
X=X+1
在哪里?这是我能记住的描述我想做什么的最好方式!如果您想在循环中使用K索引得到12次迭代,那么就如Trimax所说的那样,对于K=1到12,只要打印出1到12个dok=1到12就可以了。通过在另一个循环I=1到3中执行K=1到4,您将打印出1到4三次,这就是您获得输出的原因。换句话说,每次我循环到2,然后循环到3时,K都被初始化为1。希望对你有帮助。。接受答案可以帮助其他人回答同样的问题。你的
X=X+1
在哪里?这是我能记住的描述我想做什么的最好方式!如果您想在循环中使用K索引得到12次迭代,那么就如Trimax所说的那样,对于K=1到12,只要打印出1到12个dok=1到12就可以了。通过在另一个循环I=1到3中执行K=1到4,您将打印出1到4三次,这就是您获得输出的原因。换句话说,每次我循环到2,然后循环到3时,K都被初始化为1。希望对你有帮助。。接受答案有助于其他人回答同样的问题。