利用字典查询表格内两个区域，一个区域正常，另一个报“下标越界”错误

FredericChan

各位老师，如题所述。欲将数据源表内的浅蓝色区域，利用字典查询+数组的方式复制贴到目标表格内的橘黄色区域（如图）。
我分了两个查询区域，其中brr1匹配复制正常，但brr2区域报“9_下标越界“错误，代码为“If d.exists(brr2(i, 5)) Then..."。（报错处如图）对应“modDataImport_2”的模块。
附件已上传，麻烦各位老师帮忙指正错误，字典方法也是刚学不久，也借此机会学习提高。谢谢，

半百

ykcbf1100

1楼附件有问题，无法打开

ykcbf1100

这部分改一下再试试，数据装入一个数组就可以了。

FredericChan

半百 发表于 2024-1-29 10:03

你好，感谢回复。是我把实际表格中的行列代入到了装入的数组，弄混了。如你所说，改过之后正常了。谢谢。

FredericChan

ykcbf1100 发表于 2024-1-29 10:54
这部分改一下再试试，数据装入一个数组就可以了。

老师你好，如2楼所说，是我把实际表格中的列代入到了装入的数组，两者弄混了，导致的错误。您的代码是把模版从A1开始作为整体存入数组（对应“brr = .Range("a1:h" & r - 1)”），从这个数组中第五行开始，因为字典里key和item间隔一列，所以是“j + 2”，遍历匹配。有两个问题，第一、“For j = 1 To UBound(brr, 2) Step 4”，这里的Step 4没弄明白是什么意思；第二、这种方法下，应该从哪个区域或单元格将数组写入单元格？就是您图中修改的遍历完字典后，该如何写入单元格，没弄明白。谢谢。

ykcbf1100

FredericChan 发表于 2024-1-29 14:12
老师你好，如2楼所说，是我把实际表格中的列代入到了装入的数组，两者弄混了，导致的错误。您的代码是把 ...

很明显啊。按列来说，是分成二个区域啊，每个区域是4列，所以，间隔是4列，第一点就是这个意思。
弄明白了第一点，那原来第3列就是j+2了，j是每个区域的开始，j+2就是第3列了。
你慢慢体会吧。