Подсчитать количество различных значений в выбранном (большом )диапазоне в VBA?

Как я могу подсчитать количество различных значений (чисел и строк, смешанных )в выбранном (большом )диапазоне в VBA?

Я думаю об этом так:
1. Считайте данные в одномерный массив.
2. Сортировка массива (быстрая или сортировка слиянием )необходимо проверить
3. Просто подсчитайте количество различных значений, если массив отсортирован:if(a[i]<>a[i+1]) then counter=counter+1.

Это самый эффективный способ решить эту проблему?

Изменить :Я хочу сделать это в Excel.