指定した列のどの行に特定のデータがあるのかを調べたい(検索したい)場合は次のコードを使用します。
機能.検索.行取得(ワークシート As Worksheet, 列, 検索文字, 検索方向 As 方向定数_上下)
このコードには四つの引数が必要です。
1,ワークシート As Worksheet
検索したい列があるワークシートをここで指定します。
2,列
検索したい列をここで指定します。
※列は数字で指定します。
3,検索文字
探したい文字列や数字をここで指定します。
4,検索方向 As 方向定数_上下
列を上から検索するか下から検索するかをここで指定します。
例えば「顧客」シートのB列の何行目に「株式会社トーコン」とあるか調べたい場合は以下のように記述します。
Dim 顧客情報行
顧客情報行 = 機能.検索.行取得(Worksheets(“顧客”), 2, “株式会社トーコン”, 上から)
※下から検索したい場合は、_上から_ではなく、_下から_を選択してください。
上記のコードでも問題はないのですが、トーコンとしてはなるべくコードを見ただけでわかるように書こうというルールでしたね。
ですので、二つ目の引数(列)や三つ目の引数(検索文字)は変数に入れたほうがいいかもしれません。
というわけで、
Dim 顧客情報行
Dim リピーター企業
Dim 企業名リスト列
リピーター企業 = “株式会社トーコン”
企業名リスト列 = 2
顧客情報行 = 機能.検索.行取得(Worksheets(“顧客”), 企業名リスト列, リピーター企業 , 上から)