在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
函数来判断数组是否为空,如果数组为空,或者数组的上限索引小于下限索引,则判断数组为空。
辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
推荐阅读: 如何在VBA中循环Range.Find