很简单取表名的问题,但是我不明白,请大家帮帮忙

帅胖胖

初学者,请大家莫嫌弃.
是这样的,我需要在当前表取a列取得此工作簿的所有的表名.写了vba是这样的.

第一种写法---正确

Sub 取表名()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(1).Range("a" & i ) =Sheets(i).Name

Next

End Sub

第二种写法for each--正确

Sub test()

Dim sht As Worksheet

Dim i As Integer

For Each sht In Worksheets

  i = i+ 1

       Range("a" & i) = sht.Name

Next

End Sub

第三种写法---for each+for的循环--错误

Sub 取表名错误写法()

    Dim sht AsWorksheet

    Dim i AsInteger

    For Eachsht In Worksheets

    For i = 1To Sheets.Count

Range("a" & i)= sht.Name

‘就是这里出现了巨大错误,a1-a10都等于最后一张表的名字

    Next

    Next

End Sub

我就不明白了

for i=1 tosheets.count 与 i=i+1 大家不都差不多嘛???结果确实不一致.我的脑袋敲破了,也想不出来.请各位亲朋好友们帮帮忙~

帅胖胖

其实,我的问题集中在最后一句话哈,不想看代码的朋友们,直接看最后一句就好了

860510694

楼主你好，我也是一个初学者
看到你的帖子我仔细百度了一下
下面是我的理解，可能会有错误，注意分辨
1、首先For Each sht In Worksheets 就是一个有多少个工作表循环多少次。
2、   For i = 1To Sheets.Count
Range("a" & i)= sht.Name   
重点在sht.Name,它表示的是for each状态下第几次循环的工作表名字，在每次For Each sht In Worksheets的循环里面，它是一个定值，代表着第几次循环的工作表名字
不管For i = 1To Sheets.Count 中的i＝多少
在每一次for each 那个大的循环中
Range("a" & i)= sht.Name   中sht.Name是一个循环中的工作表名字
所以每次a1－a10的值都是一样的
它是一个过程，先是全部等于第一张工作表名字，然后全部等于第二张工作表的名字，然后第三张，一直到等于最后一张工作表表的名字，这个时候For Each sht In Worksheets循环结束结束(看1、)，也就导致了全部等于最后一张工作表的名字。

huanglong355

Sub tt()
Dim sht As Worksheet
    Dim i As Integer
    i = 1
    For Each sht In Worksheets
    Range("a" & i) = sht.Name
    i = i + 1
    Next
End Sub