我正在编写一个脚本,该脚本将循环遍历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!