循环无法添加缺失的行

Question

我的循环有点问题。下面的代码应该遍历wksSource行，在wksData中查找匹配项，更新值并将wksData中未列出的任何行添加到目标工作表的底部{ {1}}。

它不会添加缺失的行，但我不明白为什么不这样做。

wksData

我该如何解决这个问题？

Answer 1

很高兴看到你能够纠正错误。对于速度，如果没有要搜索的唯一标识符，您将受到限制。您应该能够使用Match或Find匹配一个条件（例如NCRno或part no），然后只运行For循环，仅检查这些行上的所有值。另请查看my answer to this question。有关加速VBA代码的一般步骤的一些很好的信息，包括在代码运行时关闭屏幕更新和计算。