Count number of different value in vector

[Alex St-Pierre]

Hi,
I have a vector of 6 to 20 elements which is declared:
Dim file(20) as string

I would like to count how many different text is include in the vector

file(20).differentvalue.count

I know that I can use an algor. to count it but I would like to have
something smaller.
Thanks,

--
Alex St-Pierre

[Chip Pearson]

Alex,

Try something like the following:

Dim C As New Collection
Dim Ndx As Long
On Error Resume Next
For Ndx = 1 To 20
C.Add file(Ndx), file(Ndx)
Next Ndx
Debug.Print "Different strings: " & C.Count


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Alex St-Pierre" <[email protected]> wrote
in message
news:[email protected]...
> Hi,
> I have a vector of 6 to 20 elements which is declared:
> Dim file(20) as string
>
> I would like to count how many different text is include in the
> vector
>
> file(20).differentvalue.count
>
> I know that I can use an algor. to count it but I would like to
> have
> something smaller.
> Thanks,
>
> --
> Alex St-Pierre