为啥到最后提示下标越界啊

青春の火焰

用代码代替vlookup功能，但是到最后出错，提示下标越界 ，请前辈们帮忙看看，啥子情况，谢过先 ask.rar (12.21 KB, 下载次数: 10)

2019-10-2 20:55 上传

点击文件名下载附件

abc123281

[i1].Resize(UBound(crr)) = crr

青春の火焰

这个是下标越界的

青春の火焰

我改成2楼的，但还是越界

killq

1. Sub tttt()
   
2. Dim arr, brr, crr
   
3. arr = [h1].CurrentRegion
   
4. brr = [a1].CurrentRegion
   
5. ReDim crr(1 To UBound(arr), 1 To 1)
   
6. For i = 1 To 11
   
7.      For j = 1 To 37
   
8.      If arr(i, 1) = brr(j, 2) Then
   
9.     k = k + 1
   
10.   crr(k, 1) = brr(j, 3)
    
11. End If
    
12. Next
    
13. Next
    
14. '[i1].Resize(11) = Application.Transpose(crr())
    
15. '修改内容：
    
16. [i1].Resize(11) = crr
    
17. End Sub

复制代码

下次求助建议除了附件外，再把上面两项内容：（图片格式文本内容、代码）也加上，你会更快得到帮助。不是每个人都愿意费力去下载你的附件的，毕竟是免费，你的代码也不一定优美。所以，求助也是需要技巧的

青春の火焰

abc123281 发表于 2019-10-2 21:35
.Resize(UBound(crr)) = crr

多谢前辈，我没看仔细，crr搞成了crr(),所以下标越界

青春の火焰

killq 发表于 2019-10-3 07:16
下次求助建议除了附件外，再把上面两项内容：（图片格式文本内容、代码）也加上，你会更快得到帮助。 ...

谢谢，知道了

killq

青春の火焰 发表于 2019-10-3 08:02
谢谢，知道了

说一下我的理解吧：
你的声明里只有crr 这个变量（数组），但没有crr() 数组变量，所以引用时会出错

修改方法其实还可以是声明crr() 数组变量。甚至在你在代码里不声明

至于转置的问题，不说了