Excel教程:将工作簿中所有工作表名称写入活动工作表的A列

本文为:《别怕,Excel VBA其实特别简单(第3版)》随书问题参考答案

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

1、用For…Next循环语句解决

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

2、用Do While循环语句解决

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

AI助手