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

我们如果在一个工作薄中有很多工作表，怎样把它提取到其中一个工作表中呢？今天小编和大家分享具体操作方法。

工具/原料

联想天逸F41

Windows7版本6.1

OfficeExcel2007

方法/步骤

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

2、插入——艺术字，选择红色白边的艺术字类蕞瞀洒疸型，输入：提取工作表名——绘图工具——格式，选择蓝色的强烈效果5。

3、开发工具——VisualBasic——插入——模块——输入：Su水瑞侮瑜b提取表名()Forx=2皈其拄攥ToSheets.CountCells(x,1)=Sheets(x).NameNextxEndSub

4、右击刚刚的艺术字文本框——指定宏——选择“提取表名”——确定。

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