Masa********

2022/5/19 16:34

22回答

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

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

画像

Excel | Visual Basic・63閲覧

ベストアンサー

0
taihenda****

カテゴリマスター

2022/5/19 18:21

Sub TEST() Dim i As Long, n As Long, dic As Object, D n = Cells(Rows.Count, 1).End(xlUp).Row D = Range("A4", Cells(n, 2)).Value Set dic = CreateObject("Scripting.Dictionary") For i = 1 To UBound(D) If dic.exists(D(i, 1)) Then If dic(D(i, 1)) > D(i, 2) Then dic(D(i, 1)) = D(i, 2) End If Else dic(D(i, 1)) = D(i, 2) End If Next For i = 4 To n If Cells(i, 2) = dic(Cells(i, 1).Value) Then Cells(i, 4) = "○" End If Next End Sub お試しください。

その他の回答（1件）

0
aka********

カテゴリマスター

2022/5/19 17:58

関数の方が 早いですが =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