複数のシートまたはワークブックで値をすばやく検索するにはどうすればよいですか？

Excelで複数のシートまたはワークブックの特定の値を検索するためにイメージしたことがありますか？ このチュートリアルでは、複数のシートでの検索や複数のワークブックでの検索に関する問題を解決するためのいくつかの異なる方法を紹介します。

検索と置換機能を使用して、ワークブックの複数のシートで値を検索します

VBAを使用してフォルダーのすべてのブックの値を検索する

Kutools for Excelを使用して、開いている複数のブック全体の値をすばやく検索する

  検索と置換機能を使用して、ワークブックの複数のシートで値を検索します

Excelの 検索および置換 関数、あなたは複数のシートにわたって特定の値を見つけることができます。

1.を押したままにして、値を検索する複数のシートタブを選択します。 Ctrlキー キーを押して、のワークシートをクリックします シートタブバー 一つずつ。 スクリーンショットを参照してください：

2.次にを押します Ctrl + F を有効にする 検索および置換 ウィンドウで、検索する値を 見つける 下のテキストボックス もう完成させ、ワークスペースに掲示しましたか? タブ、[OK]をクリックします すべて検索 ボタンをクリックして、すべての結果を一覧表示します。 スクリーンショットを参照してください：

シートやワークブック全体で価値を見つけて置き換える

Kutools for Excelの高度な 検索および置換 関数は、複数のシートや開いているブック全体で値を見つけて置き換えるのに役立ちます。  無料ダウンロード

Kutools for Excel：300を超える便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。

VBAを使用してフォルダーのすべてのブックの値を検索する

フォルダから閉じたすべてのブックの値を検索する場合は、VBAを適用して解決することしかできません。

1.新しいブックを有効にしてセルを選択し、を押します Altキー+ F11 開くキー 基本的なアプリケーションのためのMicrosoftVisual 窓。

2。 クリック インセット > モジュール VBAの下を新しいモジュールウィンドウに貼り付けます。

VBA：フォルダーのすべてのブックで値を検索します。

Sub SearchFolders()
'UpdatebyKutoolsforExcel20200913
    Dim xFso As Object
    Dim xFld As Object
    Dim xStrSearch As String
    Dim xStrPath As String
    Dim xStrFile As String
    Dim xOut As Worksheet
    Dim xWb As Workbook
    Dim xWk As Worksheet
    Dim xRow As Long
    Dim xFound As Range
    Dim xStrAddress As String
    Dim xFileDialog As FileDialog
    Dim xUpdate As Boolean
    Dim xCount As Long
    Dim xAWB As Workbook
    Dim xAWBStrPath As String
    Dim xBol As Boolean
    Set xAWB = ActiveWorkbook
    xAWBStrPath = xAWB.Path & "\" & xAWB.Name
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a forlder"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xStrSearch = "KTE"
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    Set xOut = Worksheets.Add
    xRow = 1
    With xOut
        .Cells(xRow, 1) = "Workbook"
        .Cells(xRow, 2) = "Worksheet"
        .Cells(xRow, 3) = "Cell"
        .Cells(xRow, 4) = "Text in Cell"
        Set xFso = CreateObject("Scripting.FileSystemObject")
        Set xFld = xFso.GetFolder(xStrPath)
        xStrFile = Dir(xStrPath & "\*.xls*")
        Do While xStrFile <> ""
            xBol = False
            If (xStrPath & "\" & xStrFile) = xAWBStrPath Then
                xBol = True
                Set xWb = xAWB
            Else
                Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
            End If
            For Each xWk In xWb.Worksheets
                If xBol And (xWk.Name = .Name) Then
                Else
                Set xFound = xWk.UsedRange.Find(xStrSearch)
                If Not xFound Is Nothing Then
                    xStrAddress = xFound.Address
                End If
                Do
                    If xFound Is Nothing Then
                        Exit Do
                    Else
                        xCount = xCount + 1
                        xRow = xRow + 1
                        .Cells(xRow, 1) = xWb.Name
                        .Cells(xRow, 2) = xWk.Name
                        .Cells(xRow, 3) = xFound.Address
                        .Cells(xRow, 4) = xFound.Value
                    End If
                    Set xFound = xWk.Cells.FindNext(After:=xFound)
                Loop While xStrAddress <> xFound.Address
                End If
            Next
            If Not xBol Then
            xWb.Close (False)
            End If
            xStrFile = Dir
        Loop
        .Columns("A:D").EntireColumn.AutoFit
    End With
    MsgBox xCount & " cells have been found", , "Kutools for Excel"
ExitHandler:
    Set xOut = Nothing
    Set xWk = Nothing
    Set xWb = Nothing
    Set xFld = Nothing
    Set xFso = Nothing
    Application.ScreenUpdating = xUpdate
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
End Sub

3.次にを押します F5 キーまたは ラン このVBAを実行するためのボタン、および フォルダを選択 ダイアログがポップアップ表示され、値を検索するフォルダを選択するように通知されます。 スクリーンショットを参照してください：

4.次に、をクリックします OK セルの数が見つかったことを通知する別のダイアログが表示されます。 スクリーンショットを参照してください：

5。 クリック OK 〜へ 閉じる 見つかったすべてのセルが、対応する情報とともに現在のワークシートに一覧表示されます。

ヒント： 上記のVBAで、値を検索します 「KTE」、そしてあなたは変えることができます 「KTE」 これから xStrSearch = "KTE" 必要に応じて別の値に変更します。

Kutools for Excelを使用して、開いている複数のブックの値をすばやく検索する

開いている複数のワークブック全体で値を検索するだけの場合は、次を使用できます。 Kutools for Excel 's高度 検索および置換 ユーティリティ。

後 無料インストール Kutools for Excel、以下のようにしてください：

1.開いているワークブックのXNUMXつで、をクリックします クツール > ナビゲーション、をクリックします。 検索および置換 (Comma Separated Values) ボタンをクリックして、各々のジョブ実行の詳細（開始/停止時間、変数値など）のCSVファイルをダウンロードします。  を選択して 検索および置換 ペイン。 スクリーンショットを参照してください：

2。 次に、をクリックします もう完成させ、ワークスペースに掲示しましたか? タブをクリックし、検索する値を 見つける テキストボックスをクリックして、 すべてのワークブック 中で ドロップダウンリストをクリックして、 すべて検索 見つかったすべてのセルを一覧表示します。 スクリーンショットを参照してください：

ヒント：

連絡先 Kutools for Excelの高度な 検索および置換 ユーティリティを使用すると、複数のワークブック、すべてのワークブック、アクティブなワークブック、アクティブなシート、または選択範囲にわたって、選択したシートの値を検索して置き換えることができます。

  開いている複数のワークブック全体で値を検索する

関連記事：

• 複数のワークシートまたはワークブック全体をすばやく見つけて置き換えるにはどうすればよいですか？
• 開いている複数のExcelファイルをすばやく見つけて置き換えるにはどうすればよいですか？
• Excelで最大の負の値（0未満）を見つける方法は？
• Excelの列からすべての重複を抽出するにはどうすればよいですか？