>>97
ソートしてから､2つ以上同一の値が連続しているものを抜粋する
Filter掛けて､戻り値のUBoundが1以上のものを列挙する
連想配列を利用する

いろいろ方法はあるので､お好きな物をどうぞ