如何始终在整个工作簿中进行搜索？

在 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. 然后单击 确定，整个工作簿中你想要的所有值都已替换为所需的值。

5. 请将工作簿保存为 启用宏的工作簿 格式，下次当你打开此工作簿时，你可以始终应用此代码在整个工作簿中进行搜索。

始终使用 Kutools for Excel 在整个工作簿中搜索

如果你安装了 Kutools for Excel，通过其 导航窗格 工具，你可以根据需要始终在工作表、整个工作簿或多个打开的工作簿中进行查找和替换。

安装 Kutools for Excel 后，请按照以下步骤操作：

1. 单击 Kutools > 导航，参见截图：

2在 导航 窗格中，单击 按钮以进入 导航选项，在选项中心，请根据需要在 查找和替换 部分指定默认范围，在这种情况下，我将选择 当前工作簿，参见截图：

3然后单击 确定 按钮，关闭并重新打开工作簿以使设置生效，现在，转到 导航 窗格，并单击 按钮以激活 查找和替换 功能。在 查找和替换 窗格中，请执行以下操作：

（1）在 范围 部分，你可以看到默认范围已更改为 当前工作簿；

（2）在 替换 选项卡下，分别在 查找内容 和 替换为 文本框中输入要查找和替换的文本；

（3）然后单击 全部替换 按钮以替换 当前工作簿 中你需要的文本。

立即免费下载 Kutools for Excel！

4. 从现在开始，当你打开任何工作簿并应用 Kutools 的 查找和替换 功能时，默认的搜索范围是 当前工作簿。