此方法将引入VBA宏轻松地在活动工作簿中搜索工作表。

1。 按 其他 + F11 同时按下两个键可以打开“ Microsoft Visual Basic for Applications”窗口。

2。 点击 插页 > 模块，然后将以下VBA代码粘贴到新打开的“模块”窗口中。

VBA：按工作表名称搜索

Sub SearchSheetName()
Dim xName As String
Dim xFound As Boolean
xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveWorkbook.Sheets(xName).Select
xFound = (Err = 0)
On Error GoTo 0
If xFound Then
MsgBox "Sheet '" & xName & "' has been found and selected!"
Else
MsgBox "The sheet '" & xName & "' could not be found in this workbook!"
End If
End Sub

3。 按 F5 键或单击 运行 按钮以运行此VBA。

4。 出现工作表搜索对话框，请输入要搜索的工作表名称，然后单击 OK 按钮。 看截图：

将出现另一个对话框，告诉您是否已找到工作表。 只是关闭它。

请注意： 此VBA需要完全匹配的工作表名称。 只有输入完全正确的工作表名称，您才能使用此VBA查找该工作表。

如果您不能准确记住并输入工作表名称，上面的 VBA 可能不容易找到工作表。这种方法将引入 Kutools for Excel 的 创建工作表名称列表 该实用程序可轻松搜索并转移到工作表。

1。 点击 Kutools 加 > 工作表 > 创建工作表名称列表 打开创建图纸名称列表对话框。 查看屏幕截图：

2。 在打开的“创建图纸名称列表”对话框中，请具体设置： (1) 检查 包含超链接列表 选项; (2) 输入新创建的索引表的名称； (3) 指定新索引表的位置； 和 (4) 在索引表的一列中列出所有工作表名称。

3。 点击 Ok 按钮。 现在，将创建一个新的索引表并将其放置在所有工作表的前面。

4。 转到索引表，然后按 按Ctrl + F 同时按下两个键以打开“查找和替换”对话框，在 查找内容 框，然后单击 找到所有 按钮。 看截图：

现在，将找到所有包含关键字的工作表名称，并将其列出在“查找和替换”对话框的底部。 请参见上面的对话框。

5。 在“查找和替换”对话框中单击找到的工作表名称以选择相应的单元格，然后单击索引表中的选定单元格，它将立即跳转到相应的工作表。

演示：在Excel中按工作表名称搜索

如果您安装了 Kutools for Excel，您可以在导航窗格上按工作表名称轻松搜索工作表。请按以下步骤操作：

1。 默认情况下，导航窗格处于打开状态。 如果关闭，请点击 库工具 > 导航窗格 以显示导航窗格，然后单击  （工作簿和工作表）在导航窗格的最左侧。

2。 继续检查 筛选器 导航窗格中的复选框，然后 在下面的框中键入指定的关键字。 现在，将找到名称中包含指定关键字的所有工作表，并在下面的框中列出。 看截图：

备注：单击搜索结果将跳转并立即打开相应的工作表。

演示：使用 Kutools for Excel 的导航窗格按工作表名称搜索

在单元格中创建到同一工作簿中另一个工作表的超链接