Sub 関数MATCHを使う() 検索値 = "C社" Set 検索範囲 = Range("A1:A10") MsgBox WorksheetFunction.Match(検索値, 検索範囲, 0) End Sub