vba怎么判断数组是否为空

在VBA中，可以使用IsArrayEmpty函数来判断一个数组是否为空。下面是一个示例代码：

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函数来判断数组是否为空，如果数组为空，或者数组的上限索引小于下限索引，则判断数组为空。