我正在编写一个脚本,该脚本将循环遍历Excel电子表格,并查找所选单元格是否重复。如果存在重复项,则该函数将返回重复行的数组,并创建注释以告诉我这些行。

我已经能够处理错误0,但是现在当我使用UBound函数检查数组中是否有元素时,我得到了错误9。

如何验证整数数组是否为空?

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

最佳答案

试试这个检查一个空数组:

Dim arr() As String

If (Not arr) = -1 Then
   Debug.Print "empty"
Else
   Debug.Print "UBound is " & UBound(X)
End If

HTH!

08-27 00:26
查看更多