質問: Workbooks("マスターEXCELデータ").Sheets(1).Columns(5).Find(ExCode).Row MsgBox I End If Next cnt End If End With ```
回答: 別ファイル"マスターEXCELデータ"の指定をWorkbooks("マスターEXCELデータ.xlsx")というように拡張子を付けてみて下さい。 それと「if Not cnt2 = ~」の部分はエラーは出ないようですが恐らく正しく判定されないと思いますので下記の様に代入と比較を分けた方が良いと思います。 ``` cnt2 = Application.WorksheetFunction.CountIf(・・・・・, ExCode) '長いので一部省略 If cnt2 > 0 then I = Workbooks("マスターEXCELデータ.xlsx").・・・・・.Find(ExCode).Row MsgBox I End if ```