[COLOR="Navy"]Sub[/COLOR] MG28Oct28
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
c = 0
[COLOR="Navy"]For[/COLOR] n = 1 To 4
c = c + IIf(Application.CountIf(Rng.Offset(, n), Dn.Value) > 0, 1, 0)
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]If[/COLOR] c >= 3 [COLOR="Navy"]Then[/COLOR] Dn.Interior.ColorIndex = 6
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
=IF(SUM(IF(IFERROR(MATCH(A1,A:A,0),0)=0,0,1),
IF(IFERROR(MATCH(A1,B:B,0),0)=0,0,1),
IF(IFERROR(MATCH(A1,C:C,0),0)=0,0,1),
IF(IFERROR(MATCH(A1,D:D,0),0)=0,0,1),
IF(IFERROR(MATCH(A1,E:E,0),0)=0,0,1))
>=4,"Success","Fail")