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
追記:VLOOKUP関数でよくね??