单表可以多表不行

xing_chen · 发表于 2023-2-12 18:33

老师，有表，代码可以在单表执行正常，但加上for eash 后操作多表就不行了，敬请老师赐教。谢谢！

Again123456 · 发表于 2023-2-12 18:51

Next i

dic.RemoveAll'每表循环后字典清空
sh.[D2].Resize(k, 2) = Brr
k = 0'k变量在每表循环后要归零
Next

gwjkkkkk · 发表于 2023-2-12 18:55

ReDim Brr(1 To UBound(Arr, 1), 1 To 2)
dic.RemoveAll: k = 0 '这里没有重置
For i = 2 To UBound(Arr, 1)

gwjkkkkk · 发表于 2023-2-12 18:58

请楼主参考附件。。。代码错误地方已注释

Again123456 · 发表于 2023-2-12 18:58

xing_chen · 发表于 2023-2-12 19:28

gwjkkkkk 发表于 2023-2-12 18:58
请楼主参考附件。。。代码错误地方已注释

谢谢老师！现在运行顺畅了。谢谢你的注释。

xing_chen · 发表于 2023-2-12 19:29

gwjkkkkk 发表于 2023-2-12 18:58
请楼主参考附件。。。代码错误地方已注释

抱歉！花在旅途，到时献上。

xing_chen · 发表于 2023-2-12 19:31

Again123456 发表于 2023-2-12 18:58

谢谢老师！你的图示，我加后，显示了。
抱歉！花在旅途，到时献上。

		自动登录	找回密码
密码			免费注册

[求助] 单表可以多表不行