Excel vba 根据工作表名进行跳转

Excel 下 按快捷键，alt+F11 进入vba编辑界面，点击插入，选择模块，输入以下代码

Sub 跳转()
 
Dim sn As String
Dim x As Integer
sn = InputBox("请输入要跳转到的工作表的名字")
 
For i = 1 To Sheets.Count
 
If Sheets(i).Name = sn Then
 
Sheets(i).Activate
x = 1
 
End If
 
Next i
 
If x = 0 Then
 
MsgBox ("当前工作簿中没有以" & sn & "命名的工作表")
 
End If
 
End Sub

精简版的为：

Sub 跳转()
 
Sheets(InputBox("请输入要跳转到的工作表的名字")).Activate
 
End Sub

然后点击保存

再回到excel 界面

点击 功能栏里的  视图-->宏

找到 刚输入代码的 模块名 点击执行即可