質問: マクロによるvlookup関数について教えてください。
回答: >sheet2(AJ2:AN593)の行数は毎回変化します。 はAJ:ANと全列参照すればいいでしょう。 >sheet1(A2:A215)の可変はBQ列の最終行を取得すればいいでしょう(A2は固定で) エラー処理を含んだほうがいいですね。 Sub test() Dim rng As Range Sheets("Sheet1").Activate Set rng = Range("BQ2", Cells(Rows.Count, "BQ").End(xlUp)) rng.Offset(, -68) = "=Iferror(Vlookup(BQ2,Sheet2!AJ:AN,5,0),"""")" End Sub