常にワークブック全体を検索するにはどうすればよいですか？

Excelでは、検索と置換機能を適用すると、デフォルトで現在のワークシートが検索されます。常にすべてのシートを検索する場合は、変更する必要があります。 シート 〜へ ワークブック 下 オプション ボタンを押す 検索および置換 毎回ワークブックを有効にしながらダイアログを表示します。 デフォルトでアクティブなシートではなく、ブック全体を検索するように設定するにはどうすればよいですか？

常にVBAコードを使用してブック全体を検索する

常にKutoolsforExcelを使用してワークブック全体を検索する

常にVBAコードを使用してブック全体を検索する

実際、Excelでデフォルトで検索範囲をブック全体に変更する直接的な方法はありませんが、回避策として次のVBAコードを適用できます。 このコードを使用すると、このワークブックをランチするたびに検索範囲を変更する必要はありません。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

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マクロが有効なブック 次回、このワークブックを開いたときに、いつでもこのコードを適用してワークブック全体を検索できます。

常にKutoolsforExcelを使用してワークブック全体を検索する

あなたが持っている場合 Kutools for Excelそのと ナビゲーションペイン ユーティリティを使用すると、必要に応じて、ワークシート、ワークブック全体、または開いている複数のワークブックでいつでも検索して置き換えることができます。

インストールした後 Kutools for Excel、次のようにしてください。

1. クリック クツール > ナビゲーション、スクリーンショットを参照してください：

2。 の中に ナビゲーション ペインをクリック に行くボタン ナビゲーションオプション、オプションセンターで、必要に応じてデフォルトのスコープを指定してください。 検索および置換 セクション、この場合、私は選択します アクティブなワークブック、スクリーンショットを参照してください：

3。 次に、をクリックします OK ボタンをクリックし、ブックを閉じてから再度開いて設定効果を有効にします。次に、[ ナビゲーション ペインをクリックし、 ボタンを押して 検索および置換 関数。 の中に 検索および置換 ペインで、次の操作を実行してください。

（1.） 中で セクションでは、デフォルトのスコープがに変更されていることがわかります アクティブなワークブック;

（2.） 交換する タブで、検索して置き換えるテキストを個別に入力します 見つける • と交換 テキストボックス;

（3.）次に、 すべて置換 必要なアクティブなブックのテキストを置き換えるボタン。

今すぐExcel用の無料ダウンロードKutoolsをクリックしてください！

4.これから、ワークブックを開いてこれを適用するとき 検索および置換 Kutoolsのユーティリティである検索スコープは、デフォルトでアクティブなワークブックです。

300以上の機能があなたの仕事を効率的にすることができます、あなたはできます 無料のトレイルのためにExcel用のKutoolsをダウンロードしてください。