vba怎么判断数组是否为空

在VBA中，可以使用`IsArrayEmpty`函数来判断一个数组是否为空。下面是一个示例代码：
```vba
Sub CheckArrayIsEmpty()
Dim arr() As Variant
' 初始化数组
ReDim arr(1 To 5)
' 判断数组是否为空
If IsArrayEmpty(arr) Then
MsgBox "数组为空"
Else
MsgBox "数组不为空"
End If
End Sub
Function IsArrayEmpty(arr As Variant) As Boolean
IsArrayEmpty = IsEmpty(arr) Or UBound(arr) < LBound(arr)
End Function
```
这个示例代码中，先声明一个数组`arr`，然后使用`ReDim`语句初始化数组。接着调用`IsArrayEmpty`函数来判断数组是否为空。`IsArrayEmpty`函数使用`IsEmpty`函数和`UBound`函数来判断数组是否为空，如果数组为空，或者数组的上限索引小于下限索引，则判断数组为空。