根据用户输入跳转到指定单元格

运行以下代码

将会出现以下对话框

然后，你输入一个地址，以后点击A列最后一个单元格，将会跳转到对应的地址，从而实现链接的效果。

解释一下以上代码：

Dim mygoto As String   声明数据类型

mygoto = InputBox("请输入地址")   将用户输入的地址存入变量

If mygoto = "" Then Exit Sub  如果不输入就退出

ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(1).Range("a1048576").End(xlUp).Offset(1), Address:="", SubAddress:= _

mygoto, ScreenTip:="测试", TextToDisplay:="将会跳转"

添加超链接

Anchor  也就是哪个单元格需要做超链接，这里用offset可以永远指定最后一个单元格。

Address: 指定网址

Subaddress: 指定本文档位置，这里变量mygoto,用户输入a100,指定a100

Screentip: 提示文字

Texttodisplay:  显示的文字

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。