質問: introw + 1 loop end with end sub
回答: 2つ問題があると思います。 1.application.worksheetfunction.if worksheetfunctionには「if」はありません。 単純にvbaのifを使えば良いと思いますが、結果が「空白」か「0」かまたは マッチしない時等対応を変えないとだめだと思います。 2.「worksheetfunctionクラスのvlookupプロパティを参照できません」 式は合っているとは思いますが、range("database3")が気になります。 試しにrange("a1:b9")等2列以上は問題がありませんが、range("a1:a9")の1列の場合 上記エラーメッセージが表示されます。 「"database3"」の範囲を確認した方が良いかと思います。