エクセル VBAをつかって、別添画像のような処理をするにはどうしたらいいですか?

画像

Excel | Visual Basic63閲覧

ベストアンサー

0

その他の回答(1件)

0

関数の方が 早いですが =IF(COUNTIFS(C:C,C4,B:B,"<"&B4)=0,"〇","") 以下 オートフィルで できます。 どうしても VBAで ということなら For I = 4 To Cells(Rows.Count, "A").End(xlUp).Row If WorksheetFunction.CountIfs(Columns("C"), Cells(I, "C"), Columns("B"), "<" & Cells(I, "B")) = 0 Then Cells(I, "D") = "〇" End If Next