在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函數來判斷數組是否為空，如果數組為空，或者數組的上限索引小于下限索引，則判斷數組為空。
