【技巧】这么简单酷炫的瞬移大法，还不速速修炼~

属于自己的皮球

数据行太多，怎么快速抵达最后一行？

工作表太多，怎么快速定位并往返？

下面将要介绍的从入门级到大侠级的瞬间转移大法，看看你了解几个？：）

先来看看样本吧，数据真多：

 双击鼠标 

注意观察选中的单元格，右下角的小十字大家都知道有自动填充的功能，但四周边框也不可小瞧，双击一下试试看吧：）

 与 Ctrl 组合 

方向箭头↓、↑、←、→与Ctrl搭配，真的是想去哪里去哪里！

还可以用这个功能看看你的Excel版本支持多少行、多少列哟。是1048576、XFD么？：）

如果数据不连续中间有空行、又或者需要在不同工作表间反复切换，那上面两种方法就不太好用啦~~~怎么办呢，别担心，有超链接！

如图，【插入】→【链接】超链接，是个地球形状的图标：

篇幅关系，今天仅介绍本工作薄内、单元格方式的超链接：

 文字超链接 

下面的例子是同一工作表内，在A1和AZ300之间跳转： 

 图片超链接 

若觉得文字跳转有点枯燥，那就换成图片吧，选中图片后添加超链接，设置方式与文字完全相同。

 VBA 添加超链接 

有些文件包含很多工作表，要在表间跳转，如果手动整理并逐一添加超链接，工作量可不小啊~~

下面的代码可以获取目录之外的全部工作表名称，并自动添加双向超链接——往返的传送门只需短短几行代码就OK啦：） 

Sub 链接工作表()

Dim i As Integer

i = 1

For Each sh In Sheets

    If sh.Name <> '目录' Then

        '前往

        Worksheets('目录').Hyperlinks.Add anchor:=Worksheets('目录').Cells(i, 'A'), Address:='', SubAddress:=sh.Name & '!A1', TextToDisplay:=sh.Name

        '返回

        sh.Hyperlinks.Add anchor:=sh.Cells(1, 'A'), Address:='', SubAddress:=Worksheets('目录').Name & '!A1', TextToDisplay:='回到目录'

        i = i 1

    End If

Next

End Sub

运行代码之后的效果如下，目录页的A列已汇总“地区”，并且各地区页的A1单元格也已添加“返回目录”：

本例中，目录页使用彩色地图；地区页使用黑白地图，并用椭圆形框出目标区域。

  

 地图超链接 

既然是地图应用，若能直接利用地图本身的话，用户体验会更好哦！先来看看功能和效果：

【前往】单击感兴趣的地图区域，即刻跳转到相应工作表；

【返回】单击红色椭圆内部，即刻返回到目录工作表；

看答案之前先来思考一下，如果是你会怎么实现这个功能呢？欢迎留言分享你的想法：）

……

答案揭晓：

下载一张你心仪的地图（注意版权问题哟），然后【插入】→【形状】→【任意多边形】，沿着区域绘制一周，不必那么精确，如下图：

将得到的多边形设置为无填充色、无边框色（此处为了说明，使用红色粗线显示了西北、东北、台湾这三个区域的图形边框）

最后给这些图形依次添加超链接即可。

返回目录的方法同理，使用任意多边形、或者像例子中那样简化一下用规则图形都可以。

以上就是今天的内容啦，你学会了几种瞬移大法呢？

临近期末事情比较多，更新稍迟，敬请谅解~~