【エクセルマクロ】別シート・別ファイルをFind検索する

エクセルマクロで、別シート・別ファイルをFind検索するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

別シートをFind検索する

以下のマクロを実行すると、別シートをFind検索します。

Sub 別シートをFind検索()

Dim St2 As Worksheet
Dim a As Range
 
    'シートを変数代入
    Set St2 = Worksheets("Sheet2")
    
    '「Sheet2」 の全体から検索
    Set a = St2.Cells.Find(What:="1022")
     
    '結果をメッセージボックス表示
    If a Is Nothing Then
        MsgBox ("見つかりません。")
    Else
        MsgBox ("見つかりました。")
    End If

End Sub

マクロ実行前

「Sheet1」を開いた状態で、

「Sheet2」から ”1022” という文字を検索したいと思います。

マクロ実行後

検索結果をメッセージボックスに表示します。

別ファイルをFind検索する

以下のマクロを実行すると、別ファイルをFind検索します。

Sub 別ブックをFind検索()

Dim Bk2 As Workbook
Dim St2 As Worksheet
Dim a As Range
 
    'ブックを変数代入
    Set Bk2 = Workbooks("BOOK2.xlsm")
    
    'シートを変数代入
    Set St2 = Bk2.Worksheets("Sheet2")
    
    Bk2.Activate
    St2.Select
    
    '「BOOK2」 の 「Sheet2」 の全体から検索
    Set a = St2.Cells.Find(What:="1022")
     
    '結果をメッセージボックス表示
    If a Is Nothing Then
        MsgBox ("見つかりません。")
    Else
        MsgBox ("見つかりました。")
    End If

End Sub

マクロ実行前

「BOOK1」の「Sheet1」を開いた状態で、

「BOOK2」の「Sheet2」から ”1022” という文字を検索したいと思います。

マクロ実行後

検索結果をメッセージボックスに表示します。

 
 
この記事がお役に立ちますと幸いです。
 

ExcelVBA Findメソッドで効率化！実践的な使用例トップ6[図解]

...

kirinote.com

2023.11.04