如何始終搜索整個工作簿？

在Excel中，當您應用“查找和替換”功能時，默認情況下它將在當前工作表中搜索，如果您始終要在所有工作表中搜索，則必須進行更改 片 至 工作簿 在 選項 按鈕 查找和替換 對話框，同時每次啟用工作簿。 默認情況下，如何設置它以在整個工作簿中而不是活動工作表中進行搜索？

始終使用VBA代碼在整個工作簿中進行搜索

始終使用Kutools for Excel在整個工作簿中搜索

---

始終使用VBA代碼在整個工作簿中進行搜索

實際上，我們沒有直接方法可以在Excel中將搜索範圍默認更改為整個工作簿，但是，您可以應用以下VBA代碼作為解決方法。 使用此代碼，您不必在每次吃午餐時都更改搜索範圍。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊 窗口。

VBA代碼：始終在整個工作簿中搜索：

Sub FindReplace_WB()
'Updateby Extendoffice
    Dim ws As Worksheet
    Dim xFind As String
    Dim xRep As String
    Application.ScreenUpdating = False
    On Error Resume Next
    xFind = Application.InputBox("Find what", "Kutools for Excel", "", , , , , 2)
    xRep = Application.InputBox("Replace with", "Kutools for Excel", "", , , , , 2)
    If xFind = "" Then
        MsgBox "wrong...", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    For Each ws In ThisWorkbook.Worksheets
        ws.UsedRange.Replace What:=xFind, Replacement:=xRep, LookAt:=xlWhole
    Next ws
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

3。 然後按 F5 鍵以運行此代碼，然後在彈出的對話框中，分別在“查找內容”和“替換為”框中鍵入文本值，請參見屏幕截圖：

4。 然後點擊 OK，所需的整個工作簿中的所有值都已替換為所需的值。

5。 請將工作簿另存為 Excel啟用宏的工作簿 格式，並且下次打開此工作簿時，您始終可以應用此代碼在整個工作簿中進行搜索。

---

始終使用Kutools for Excel在整個工作簿中搜索

如果你有 Excel的Kutools，其 導航窗格 實用程序，您始終可以根據需要在工作表，整個工作簿或多個打開的工作簿中查找和替換。

Excel的Kutools ：具有300多個方便的Excel加載項，可以在30天內免費試用，沒有任何限制。  立即免費下載Kutools for Excel！

安裝後 Excel的Kutools，請執行以下操作：

1. 點擊 庫工具 > 導航，請參見屏幕截圖：

2。 在 導航 窗格中單擊 按鈕去 導航選項，請在選項中心中根據需要指定默認範圍 查找和替換 部分，在這種情況下，我將選擇 活動工作簿，請參見屏幕截圖：

4.從現在開始，當您打開任何工作簿並應用此工作簿時 查找和替換 實用程序Kutools，搜索範圍默認為​​活動工作簿。

300多種功能可以使您的工作高效，您可以 免費下載Kutools for Excel。