提取所有工作表的名字
大神：
1 Sub 遍历sheets下的所有对象() 2 For Each shs In Sheets 3 k = k + 1 4 Cells(k, 1) = shs.Name 5 Next 6 End Sub
我的：
1 Sub 提取所有工作表名() 2 Dim i 3 For i = 1 To Worksheets.Count 4 Cells(i, "a") = Sheets(i).Name 5 Next i 6 End Sub
大神：
1 Sub 遍历sheets下的所有对象() 2 For Each shs In Sheets 3 k = k + 1 4 Cells(k, 1) = shs.Name 5 Next 6 End Sub
我的：
1 Sub 提取所有工作表名() 2 Dim i 3 For i = 1 To Worksheets.Count 4 Cells(i, "a") = Sheets(i).Name 5 Next i 6 End Sub
