Excel 快速跳转到工作表

新建 vba 模块

Sub GotoSheet()
    tname = InputBox("input table name")
    If StrPtr(tname) = 0 Then
        Exit Sub
    ElseIf tname = vbNullString Then
        Exit Sub
    Else
        For i = 1 To Sheets.Count
            If LCase(Sheets(i).Name) Like "*" & LCase(tname) & "*" Then
                Sheets(i).Select: Exit For
            End If
            Next i
    End If
End Sub

设置快捷键，因为我平时经常用 Sublime，所以这个跳转快捷键也设置成类似的

have fun！