VBAでデータ検索

ある列の中から検索を行う関数。

エラー処理をいれないと、Fildで見つからなかった場合に落ちてしまうので注意。セルが見つかれば、RowとColumnやValueを取得することができる。

Private Function GetTargetRow(Key)
   
   On Error GoTo エラー処理
       'A列を検索する
       GetTargetRow = ThisWorkbook.Sheets("シート1").Columns("A:A").Find(What:=Key).Row
   On Error GoTo 0
   Exit Function
   
エラー処理:
   MsgBox "Keyを確認してください。Keyに対応するメッセージがありません。"
   On Error GoTo 0

End Function