Обработка ошибки 9 при наличии пустого массива

Я пишу сценарий, который просматривает электронную таблицу Excel и определяет, есть ли дубликаты выбранных ячеек. Если есть дубликаты, функция вернет массив, в котором строки являются дубликатами, и создаст комментарий, чтобы сообщить мне эти строки.

Мне удалось обработать ошибку 0, но теперь я получаю ошибку 9, когда проверяю, есть ли элементов в массиве с помощью функции UBound.

Как проверить, пуст ли массив целых чисел?

Function IsArrayEmpty(anArray As Variant) As Boolean
    Dim i As Integer

    On Error Resume Next
        i = UBound(anArray, 1)
    Select Case (Err.Number)
        Case 0
            IsArrayEmpty = True
        Case 9
            IsArrayEmpty = True
        Case Else
            IsArrayEmpty = False
    End Select
End Function
7
задан Community 28 November 2019 в 04:42
поделиться