質問: xlnone end if next i という処理を考えていますが、※というところが自信ありません。 あと、エラーが出てコードを修正してコンパイルをかけると、修正する前のコードに戻ってしまい、同じエラーメッセージが出てきます。 修正後に上書き保存をしたり、一度ブックを閉じてまた開いて・・・としても駄目でした。 このせいで作業がだいぶ遅れるのですが、修正前に戻らないようにする方法はないでしょうか?
回答: 他の方も書かれていますが、マクロよりvlookup関数の方が簡単そうですね。それでもマクロがよいのですか? > offset(0, 1).value = sheets("●●").cells(resize(1, 0)).value は target.offset(, 1).value = sheets("●●").cells(i, 2).value でしょう でもfor~next文で処理すると遅くなると思いますので、findメソッドを使う方が実用的だと思います。こんな感じですが詳しくはヘルプを見てください dim trg as range set trg = sheets("●●").columns(1).find(what:=sname, _ lookin:=xlvalues, lookat:=xlwhole) if trg is nothing then msgbox "該当なし" else target.offset(, 1).value = trg.value end if