質問: 1 end if next i end sub 1個の場合には上記マクロで解決するのですが、 2個以上の場合にどうようなマクロを記載すればよいのか アドバイスを頂けませんでしょうか。 よろしくお願いいたします。
回答: 方法はいくつかありますが、質問者のコードに近いものにするとして。。 a列と同行のc列に、1をセットする場合。 '--------------------------------- sub test() dim r as long dim ws as worksheet set ws = worksheets("sheet3") for r = 2 to ws.cells(rows.count, "a").end(xlup).row if worksheetfunction.countif(ws.range("b:b"), ws.cells(r, "a")) > 1 then ws.cells(r, "c").value = 1 end if next r end sub '------------------------------------ 以上です。