判断元素是否存在，可以考虑把数组转变成字典，字典对于这个问题处理起来就很轻松了。

Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long sub test IIf(SafeArrayGetDim(i_arr) > 0, "数组不为空!", "数组为空!")end sub

if flag=0 then msgbox "空" else msgbox "非空"

只能用循环，没有别的办法，否则其他方法在数据量很大是运算速度会慢很多。

Ubound(arr[array],num[integer]) 其实有两个参数的，第一个是数组名，第二个是数组维数！你这种写法是个逻辑错误，函数的调用返回值一定要处理的，一般是复制给一个变量，比如 UB=ubound(CMinRow)这样就不会错了，具体你可以运行一下下面的代码！Option ExplicitSub UB_Test() Dim arr(1 To...

可以是为空的。但感觉你说的问题没有说白：比如我把A1:A10存在数组ARR中。用MSGBOX MsgBox arr(1, 1)显示是为空的。也可以参于运算。Sub TEST()Dim arrarr = Range("a1:a10")MsgBox arr(1, 1) + 100End Sub结果为空

假设你要查找的日期写在D1(其中D1的格式需与B列一样是日期格式)在D2输入 ="c"&min(if((b1:b100=d1)*(c1:c100=""),row(1:100)),10000))数组公式，需要 按CTRL+shift+enter三键结束输入

Excel中vba提示下标超界，说明对象不存在或者数组元素不存在。举个简单的例子：工作表中没有"1月"这个工作表，却用Sheets("1月")；数组定义的是arr(1 to 10)，却用Arr(11)，都会出现下标越界的提示。简单的理解：下标越界就是引用超出了所在的范围。1、当我们在excel的VBA中输入下面代码，运行，...

Public Sub ssss()Dim arr1(1 To 5) As Integer, arr2(1 To 5) As Integer, i For i = 1 To 5 arr1(i) = i arr2(i) = i + 2 Next '---下面开始--- Dim s1$, s2$, t s1 = " "s2 = " "For i = LBound(arr1) To UBound(arr1)s1 = s1 & arr1(i) & " ...

整体判断很难，找不到这样的函数啊。用第一个元素判断可以的：VB code Option Explicit Dim XXX(99) As Variant Private Sub Form_Load()'Dim i As Long 'For i = 0 To 99 ' XXX(i) = i 'Next If IsEmpty(XXX(0)) Then Debug.Print "没有初始化！"Else Debug.Print "已经初始化...