提取所有工作表的名字

大神：

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

【推广】免费学中医，健康全家人

原文地址：https://www.cnblogs.com/gongyanxu/p/8420805.html