Question

excel vba for语句 几个变量同时改变

Sub program1() For i = 3 To 18 Step 1 For j = 5 To 29 Step 3 Cells(i, 4) = Cells(j, 2) Next j, i End Sub如图填入黄色格，上面的程序i和j没有同时改变，请问哪里出了问题以及如何简介完成全表格

Answer 1

因为一个for对应一个next；你的第一个for相当于没有next,所以只有j变量在变，i其实没有变化。

追问

是这样的吗，next j，i 了啊
运行后i也变了呀就是商品那一列全都变成卷心菜了

追答

你拆开写

next i
next j
这样试试呢

追问

next i
next j
语法错误
next j
next i
就和next j，i一样

追答

Sub program1()
Dim i As Integer
i = 3
For j = 5 To 29 Step 3
Cells(i, 4) = Cells(j, 2)
i = i + 1
Next j
End Sub
用这个代码试试吧 我测试了 应该没有问题
成功望采纳哦