如何判断数组arr是否为空

1223592124

For Each ws In Worksheets
    If Not ws.Name = ActiveSheet.Name And Not ws.Name = "区域经理" Then
        arr = ws.Range("C4:q" & ws.Cells(4, 2).End(xlDown).Row)
    End If

    If arr<>"" Then  ' 就想判断这句，如果数组arr里面写入数据了，就继续操作下面的语句，否则就不执行
   x=9
   endif
Next
sub end


我试了几个都显示 数据类型不符合，等等，比如ubound(arr)>1 都会显示错误，有大咖帮助下吗？用什么来表达这句话

zmj9151

利用生成错误 设置一个陷阱
on error resume next.
if  err.number<>0
  发生错误以后的代码
else
  其它代码
end if

1223592124

zmj9151 发表于 2019-2-16 14:05
利用生成错误 设置一个陷阱
on error resume next.
if  err.number0

我觉得不好，如果其他位置写错的话，这样就没办法找到原因了，我这几行只是截取一小段

chis3

1223592124 发表于 2019-2-16 14:21
我觉得不好，如果其他位置写错的话，这样就没办法找到原因了，我这几行只是截取一小段

在判斷後加句on error goto 0就可以了

chis3

if isempty(arr)

1223592124

chis3 发表于 2019-2-16 14:34
if isempty(arr)

If IsEmpty(arr) Then   这么写吗？
我试了下，不管arr里 是否有数据  都判断没有直接 直接跳，当arr里有数据时，也跳过了

lsc900707

需要附件支持。。。。。。

DevilW

只要你给数组赋值它就存在了，你要判断是否有数据只能遍历数据是否有非空值，你换个思路，先判断区域是否有数据再赋值到数组

    Set Rng = ws.Range("C4:q" & ws.Cells(4, 2).End(xlDown).Row)
    If Application.CountA(Rng) Then arr = Rng

chis3

1223592124 发表于 2019-2-16 14:39
If IsEmpty(arr) Then   这么写吗？
我试了下，不管arr里 是否有数据  都判断没有直接 直接跳，当arr里 ...

數組變量是variant
開始時是empty
isempty = true / false 是可以的

1223592124

lsc900707 发表于 2019-2-16 15:01
需要附件支持。。。。。。

版主稍等，因为数据较多我需要整理