麻烦老师们解释2个代码

cpexcelcp

麻烦老师们解释2个代码的不同

chxw68

Sub a()
  Dim i%, sht As Worksheet
  i = 1
  For Each sht In Worksheets
    For i = 1 To 4
      Cells(i, 1) = sht.Name
    Next
  Next
End Sub
楼主上面代码用的是嵌套循环，当外层循环取一个值时，内层循环就要循环4次，将外层循环的值逐个写入A1：A4单元格内，所以当外层循环第一次的值是SHEET1时，A1：A4的值是SHEET1，当外层循环第二次的值是SHEET2时，A1：A4的值是SHEET2，当外层循环最后一次取值SHEET4时，A1：A4的值就是SHEET4。

iwangyi

两个是不一样的
Sub a()
    Dim i%, sht As Worksheet
    i = 1
    For Each sht In Worksheets
        For i = 1 To 4
        Cells(i, 1) = sht.Name
        Next
    Next
    End Sub
这个是 FOR EACH 循环里套了一个 FOR NEXT 循环
内循环为将当前表名赋给单元格A1到A4
外循环为对本工作簿内的所有工作表进行循环

iwangyi

Sub c()
Dim i%, sht As Worksheet
    i = 1
    For Each sht In Worksheets
        Cells(i, 3) = sht.Name
        i = i + 1
    Next
End Sub
这段码只有一对本工作簿内工作表进行循环，并且将工作表的名字分别赋给表一的A1到A4单元格，

cpexcelcp

chxw68 发表于 2018-8-20 08:22
Sub a()
  Dim i%, sht As Worksheet
  i = 1

谢谢老师~！
也就是当sht在worksheets里选1个。然后内层A1：A4跑了一遍。
sht又选1个。内层又跑了遍 。

这样理解对么？

cpexcelcp

iwangyi 发表于 2018-8-20 08:31
Sub c()
Dim i%, sht As Worksheet
    i = 1

你好老师。也就是把sht放在for each里时，sht才会循环是么？

chxw68

cpexcelcp 发表于 2018-8-20 08:34
谢谢老师~！
也就是当sht在worksheets里选1个。然后内层A1：A4跑了一遍。
sht又选1个。内层又跑了遍  ...

非常正确！

iwangyi

cpexcelcp 发表于 2018-8-20 08:34
谢谢老师~！
也就是当sht在worksheets里选1个。然后内层A1：A4跑了一遍。
sht又选1个。内层又跑了遍  ...

理解正确******