显示UBound缺少数组错误，该如何查看

skeendaiyo

如图，Marchingregion这个sub主要是想用vlookup的方法匹配赋值，但是行数又太多我不能引用excel的公式不然效率太低了，结果就出现了错误，问了好几个人，自己找了好几小时都没弄明白该怎么办。

arrArea的赋值路径没有问题，我该如何得知是不是已经成功赋值？
还是说if，else那里使用错误了。
代码如下：

1. Sub Marchingregion()
   
2. 
   
3. Dim q&, r&, s&
   
4. Dim arr, arrY11, arrY12, arrArea As Range
   
5. arrArea = Sheets("area").[a1].CurrentRegion
   
6. arr = Sheets("Y1").[a1].CurrentRegion
   
7. For q = 2 To UBound(arr)
   
8. 
   
9.     If InStr(arr(q, 1), "") Then
   
10.         If arrY12 Is Nothing Then Set arrY12 = Rows(q) Else Set arrY12 = Union(arrY12, Rows(q))
    
11.         'arr数组里面的首列肯定有空单元格，所以arrY12在上面公式之后数组应该有值
    
12.     Else
    
13.         If arrY11 Is Nothing Then Set arrY11 = Rows(q) Else Set arrY11 = Union(arrY11, Rows(q))
    
14.     End If
    
15. Next
    
16. 
    
17. For r = 1 To UBound(arrY12)
    
18.     For s = 1 To UBound(arrArea)
    
19.     If arrY12(r, 2) = arrArea(s, 1) Then
    
20.     arrY12(r, 1) = arrArea(s, 2)
    
21.     Exit For
    
22.     End If
    
23.     Next
    
24. Next
    
25. End Sub

复制代码

microyip

当A1没有存在连续单元格数据时，得到的是A1单一数据，就不是数组了，当然出这个错误提示啦

skeendaiyo

microyip 发表于 2018-9-3 14:00
当A1没有存在连续单元格数据时，得到的是A1单一数据，就不是数组了，当然出这个错误提示啦

但我很肯定sheet("area")A列B列有上万行数据，不知道有没有办法验证下arrArea里面有没有内容呢？

skeendaiyo

但是我可以肯定sheets("area")里面AB列有数据且没断裂，请问如何查看arrArea是不是真的有数据呢？