求教VBA字典的完善

2574476074

老师新年好， 附件是我自编的一个利用VBA字典查找匹配数据的宏，原理是是依照sheet1 I列的值，把S列和T列的值从MRP表中匹配出来，但运行后有个缺陷，就是如果只是单行数据，EXCEL就会报错（数据类型不匹配）。如果是一行以上的数据就能正常运行，我看不出代码错在哪里，还望老师指教。 谢谢

蓝桥玄霜

加个判断：

1. For y = 1 To J - K
   
2.     If IsArray(arr1) Then
   
3.         arr2(y, 1) = D1(arr1(y, 1))
   
4.         arr2(y, 2) = D2(arr1(y, 1))
   
5.     Else
   
6.         arr2(y, 1) = D1(arr1)
   
7.         arr2(y, 2) = D2(arr1)
   
8.     End If
   
9. Next
   

复制代码

山菊花

问题出在这一句：
arr1 = Range("I" & (K + 1) & ":I" & J)
如果数据只有一行，K+1=J=2，区域等于Range("I2")，这时，变量arr1类型被定义为单值，不是数组，执行下面一句时将出现错误：
arr2(Y, 1) = D1(arr1(Y, 1))

改正的办法可将前一句改为：
arr1 = Range("I" & (K + 1) & ":I" & J+1)

2574476074

可以了， 多谢两位版主的帮助， 祝节日愉快。再次感谢

nicleyuan

不要纯感谢，鲜花又不要钱。

gwjkkkkk

山菊花 发表于 2023-2-4 12:21
问题出在这一句：
arr1 = Range("I" & (K + 1) & ":I" & J)
如果数据只有一行，K+1=J=2，区域等于Range(" ...

版主解释很到位。。。

xkzb

学习了。谢谢