要想获得活动工作簿中所有工作表名称，并将工作表名称写入活动工作表A列，可以用多种解决办法。下面提供两种解决思路，供参考。

Sub 获取工作表名()
Dim i As Integer, ShtCount As Integer
ShtCount = Worksheets.Count '求工作簿中包含的工作表数量
For i = 1 To ShtCount
Range("A" & i) = Worksheets(i).Name
Next i
End Sub

Sub 获取工作表名()
Dim i As Integer, ShtCount As Integer
i = 1
ShtCount = Worksheets.Count '求工作簿中包含的工作表数量
Do While i <= ShtCount
Range("A" & i) = Worksheets(i).Name
i = i + 1
Loop
End Sub

其中，下面的代码用于求活动工作簿中包含的工作表数量。
ShtCount = Worksheets.Count

上一篇： 只会VLOOKUP还不够，这些函数都挺牛 下一篇：excel vba教程：用Select Case语句为输入的成绩评定等次

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。