質問: 0 end if end sub と過去の質問で考えてみたのですが、aがあった時、、、、 とコードが書けないです。 大変困っているので、ご教授頂けないでしょうか? 出来れば、そのままマクロに出来るコードを教えて頂けないでしょうか? 宜しくお願い致します。
回答: 質問者にはまだfindメソッドは難しいでしょうから、 次のようにオーソドックスな方法がいいでしょう。 l列に「a」があった場合、隣(m列)に「0」をセットする場合 '---------------------------------------------------- sub test() dim r as long range("m:m").clearcontents for r = 1 to cells(rows.count, "l").end(xlup).row if cells(r, "l").value = "a" then cells(r, "m").value = 0 end if next r end sub '--------------------------------------------------------- それから、「a」という文字を含む 例えば、「a00」とか「xxa」とかの場合も該当にする場合は if cells(r, "l").value like "*a*" then とlikeを使います。 またfindメソッドはゆっくりじっくり勉強してください。