此方法將引入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的導航窗格按工作表名稱搜索

在單元格中創建到同一工作簿中另一個工作表的超鏈接