 前言： 在上主菜前，先吃个开胃菜，为大家先讲解下工作表操作的相关快捷键： CTRL+PAGE UP移动到上一个工作表 CTRL+PAGE DOWN移动到下一个工作表 SHIFT+CTRL+PAGE DOWN选择当前和下一个工作表 SHIFT+CTRL+PAGE UP选择当前和上一个工作表 方法一： 将鼠标定位在EXCEL表格名称栏左下角，点击右键，就可以弹出“激活”窗，可以看到所有的文档按顺序排列在窗体里面，点击相应文件名就会跳转到对的工作表。  方法二： 按CTRL+G，弹出“定位”对话框，在“引用位置”输入“客服部!A1”（中英文叹号，大小写字母都可以），跳转到对的工作表“客服部”，光标定位在A1单元格。  演示动画效果如下：  方法三： 在word中当篇幅很长时，为方便阅读会用到目录，点击目录对应的标题字段就可以自动跳转到对应的篇章内容。同样的思路，在EXCEL中是否可以直接生成1页目录，点击对应的表格标题就可以跳转过去呢？ EXCEL可以通过“插入超链接”（快捷键：CTRL+K），引用“本文档中的位置”来任意设置也是可以实现的。  但是这么多文档，一个一个地设置起来也很费事，如何批量处理呢？这时候就需要用到VBA了，代码如下： Sub新建目录及链接表() Sheets.Add(Sheets(1)).Name = '目录' For i = 2 To Worksheets.Count Sheets('目录').Cells(1, 2).Value = '目录' Sheets('目录').Cells(i, 2) = Sheets(i).Name Sheets('目录').Hyperlinks.Add Sheets('目录').Cells(i,2), '', Sheets(i).Name & '!A1' With Sheets(i).Buttons.Add(300, 10, 80, 25) .OnAction = '返回按钮' .Characters.Text = '返回目录' End With Next End Sub Sub返回按钮() Sheets('目录').Select End Sub VBA代码比较简单，思路如下： 新建“目录”工作表，名称可以根据需要更改，若本文档中已经存在“目录”工作表，会报错。 循环将各工作表的名称提取出来，依次保存在“目录”工作表的第2列单元格中。 用hyperlinks方法，循环将工作表名称字段所在单元格与工作表一一建立链接。 说明：为方便操作，本案例有增加返回“目录”按钮，若不需要，刚可将标绿色代码直接去掉即可。演示动画效果如下：  |
|
|
