求大神 i=i+1和直接用i+1有什么区别

wbgsn2

如图，需要把每个表名提取到部门这个表格里，名字叫部门的例外，要用for each循环

Sub test()
Dim sht As Worksheet
Dim i As Integer

For Each sht In Worksheets
If sht.Name <> "部门" Then
Range("a" & i + 1) = sht.Name
End If
Next

End Sub
上面这个是我写的，运行只有，只在A1显示了 【十室】
————————————————————————————————————————————
下面这个是答案

Sub test()
Dim sht As Worksheet
Dim i As Integer

For Each sht In Worksheets
    If sht.Name <> "部门" Then
        i = i + 1
        Range("a" & i) = sht.Name
    End If
Next

End Sub





二者之间只有i+1这里不同，是不是只有把I 赋值I+1，下一次循环才会变成A2,A3，A4……
直接用I+1的话，下一次循环还是range（"A1"）      ?

wbgsn2

另外触发 I 循环的条件是什么，没见有单独写for i =1 to  10这样的语句

是不是for each也能直接触发  I 的循环
麻烦哪位大神帮我解答下，谢谢啦

zpy2

wbgsn2 发表于 2020-11-12 16:56
另外触发 I 循环的条件是什么，没见有单独写for i =1 to  10这样的语句

是不是for each也能直接触发  I  ...

你的想法都是对的。
work sheets是集合，后缀s 代表复数

wbgsn2

zpy2 发表于 2020-11-12 21:51
你的想法都是对的。
work sheets是集合，后缀s 代表复数

恩恩，谢谢
还有就是，不太明白直接用i+1和，i= i+1,的区别在哪里

qingc0221

i的初始值是0，因为你没有对i重新赋值，所以每次for循环中i+1得到的值都是1。要想得到不同的结果，必须每次循环中用i=i+1来改变i的值。

小程序通知

wbgsn2 发表于 2020-11-13 16:12
恩恩，谢谢
还有就是，不太明白直接用i+1和，i= i+1,的区别在哪里

不用i=i+1,单元格就不会循环。

HuanChen00

i不赋值，一直都是1啊，你那么运行会一直往 a1 放，一直覆盖直到最后一个表名进去

tony_rico

学习了, 感谢 !

3923

小白学习了

yellowhawk

wbgsn2 发表于 2020-11-12 16:56
另外触发 I 循环的条件是什么，没见有单独写for i =1 to  10这样的语句

是不是for each也能直接触发  I  ...

循环都能触发i=i+1