Counting groups

[paulopinto]

I need to count the occurrences of groups of symbols in a column as follows:

	Symbols
	X	O	O	X
	X	X	O	X
	O	X	X	X
	X	O	X	X
	X	X	X	O
Groups	Occurrences
O	1	2	0	1
OO	0	0	1	0
OOO	0	0	0	0
OOOO	0	0	0	0
X	0	1	0	0
XX	2	1	0	0
XXX	0	0	1	0
XXXX	0	0	0	1

<tbody>
</tbody>

Please, how can I do that?
Thanks.

 

[MickG]

Try this:-
Symbols start "A2"
Groups symbols start "G2".
Results start "H2"

[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]

Regards Mick