怎样用VBA把同一工作薄各个工作表名提取到一列

1、说明：一个工作薄有很多工作表——有一个索引表，要把各个工作表名称填写到A列中。

3、开发工具——Visual Basic——插入——模块——输入：Su水瑞侮瑜b 提取表名()For x = 2 皈其拄攥To Sheets.Count Cells(x, 1) = Sheets(x).Name Next xEnd Sub

5、右击单元格的工作表名——超链接——本文档中的位置——选择相应的工作表——确定。