在Excel中，如何可以把多张工作表的名称快速汇总到一张工作表中？以下用VBA的方式取出表名。
1. 这里我们看到有一张“汇总”工作表和多张其他的工作表。
2. 打开Visual Basic，新增模块和过程，称之为“汇总表名”。
Sub 汇总表名()
End Sub
3. 这里有三张工作表的名称需要汇总，因此添加一个for循环；考虑到若有新的工作表后加进来要取出其表名，for i = 2 to Sheets.Count中用Sheets.Count可以定位到Excel文件中的最后一张工作表。
Sub 汇总表名()
Dim i As Integer
For i = 2 To Sheets.Count
Next
End Sub
4. 在for循环中添加取出表名的代码。
Sub 汇总表名()
Dim i As Integer
For i = 2 To Sheets.Count
Sheet1.Range("A" & i) = Sheets(i).Name
Next
End Sub
上面代码中Sheets(i).Name是把在第i张的工作表名称取到。
5. 执行以上代码就可以把各工作表的名称取出放在汇总表中。
