[COLOR=navy]Sub[/COLOR] MG21Sep08
[COLOR=navy]Dim[/COLOR] Rng [COLOR=navy]As[/COLOR] Range, Dn [COLOR=navy]As[/COLOR] Range, n [COLOR=navy]As[/COLOR] [COLOR=navy]Long,[/COLOR] ac [COLOR=navy]As[/COLOR] [COLOR=navy]Long[/COLOR]
[COLOR=navy]Dim[/COLOR] Rng1 [COLOR=navy]As[/COLOR] Range, Temp [COLOR=navy]As[/COLOR] [COLOR=navy]String,[/COLOR] nStr [COLOR=navy]As[/COLOR] [COLOR=navy]String,[/COLOR] Sp [COLOR=navy]As[/COLOR] Variant
[COLOR=navy]Set[/COLOR] Rng = Range("A2", Range("A" & Rows.Count).End(xlUp))
[COLOR=navy]Set[/COLOR] Rng1 = Range("G2", Range("G" & Rows.Count).End(xlUp))
Rng1.Offset(, 1).Resize(, 4).Value = 0
[COLOR=navy]For[/COLOR] ac = 0 To 3
nStr = ""
[COLOR=navy]For[/COLOR] [COLOR=navy]Each[/COLOR] Dn [COLOR=navy]In[/COLOR] Rng.Offset(, ac)
[COLOR=navy]If[/COLOR] Dn.Address = Rng.Offset(, ac)(1).Address [COLOR=navy]Then[/COLOR]
nStr = Dn
[COLOR=navy]Else[/COLOR]
nStr = nStr & IIf(Dn.Value = Temp, "", ",") & Dn.Value
[COLOR=navy]End[/COLOR] If
Temp = Dn.Value
[COLOR=navy]Next[/COLOR] Dn
Sp = Split(nStr, ",")
[COLOR=navy]For[/COLOR] n = 0 To UBound(Sp)
[COLOR=navy]For[/COLOR] [COLOR=navy]Each[/COLOR] Dn [COLOR=navy]In[/COLOR] Rng1
[COLOR=navy]If[/COLOR] Dn = Sp(n) [COLOR=navy]Then[/COLOR]
Dn.Offset(, ac + 1) = Dn.Offset(, ac + 1) + 1
[COLOR=navy]Exit[/COLOR] For
[COLOR=navy]End[/COLOR] If
[COLOR=navy]Next[/COLOR] Dn
[COLOR=navy]Next[/COLOR] n
[COLOR=navy]Next[/COLOR] ac
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]