<em>excel</em>里一个工作簿里的<em>工作表太多</em>

excel里一个工作百簿里的工作表太多了，添加工作表的目录表方度法：
1、在单元格中输入目知录文字。
2、选中单元格，右击，弹出菜单中选择“超道链接”。
3、对话框中点专击“文档中的位置“，填写要显示的文字，选中工作表属”sheet2“,点击确定。

sub ml()
rows("2:65536"),clearconternts
dim sht as worksheet,irow as integer
irow=2
for each sht in worksheets
cells(irow,"a").value=irow-1
activesheet.hyperlinks.add anchor:=cells(irow,"b"),address:="",subaddress:="'"&sht.name&"'!a1",texttodisplay:=sht.name
irow=irow+1
next
end sub
第一种，比较简单原始的方法：
第1步 文档说明：下面文档共有17个知sheet页，其中sheet2~道sheet17是内容页，sheet1作为目录页，根据内容页数量在目录页建立序号01~16，如下图：

第2步 选中B2单元格，同时按住键盘上的“Ctrl+k”，弹出【插入超链回接】，如下图：

第3步 选择“本文档中的位置”，用鼠标选中“第一章”，单击确定答，如下图：

5
第4步 重复以上步骤，完成所有目录链

步骤1：公式>>>定义名称

shts=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)

步骤2：插入一个新工作表来，放在工作簿的最前面，用来源作目录表。知

步骤3：目录B2输入公式：

=IFERROR(HYPERLINK("#"&INDEX(shts,ROW())&"!A1","Goto" &INDEX(shts,ROW())),"")

步骤4：公式下拉到足够多行（可以放下所有工作表名）

至此，目录完成，当然，道你可以根据自己爱好进行美化目录表。

以后单击某个单元格，就自动跳到该工作表的A1单元格。

知识扩展：

1、GET.WORKBOOK(1)是4.0宏表函数，因此，文件必须保存启用宏的工作簿（*.xlsm）。

2、IFERROR是Excel 2007以后新增的函数，如果使用的是Excel 2003，则B2公式修改如下：

=IF(ROW()>COLUMNS(shts),"",HYPERLINK("#"&INDEX(shts,ROW())&"!A1","Goto " &INDEX(shts,ROW())))