Ошибка Run-time error '381' при использовании массива - VBA

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, уважаемые гуру. Есть Форма с ComboBox'ом. При инициализации считывается с диапазона ячеек значения, проводятся некоторые операции (сортировка и удаление дубликатов) и выводится полученный список в ComboBox. Если значений в ячейках два и более то все отрабатывает штатно. При только одной заполненной ячейки выдает ошибку Run-time error
Спойлер
Пытался приделать костыль чтобы обойти данный казус, но знаний в VBA не хватает. Буду рад за любую оказанную помощь. спасибо. P.S. Пример приложил. Функция сортировки и удаления дубликатов была собрана из разных источников.

Решение задачи: «Ошибка Run-time error '381' при использовании массива»

textual
Листинг программы
If Not IsArray(Arr) Then uniqsort = Array(Arr): Exit Function

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы