比较数据后，将数据从一个工作簿传输到另一个工作簿

Question

因此，我们正在尝试传输来自＆＃34; Book1＆＃34;的prodcode中的数据。到＃34; Book2＆＃34;在专栏＆＃34; C＆＃34;并且它给了我们一个错误。你们任何人都可以弄明白为什么会这样做吗？我们已经做了相当长的一段时间了，似乎无法弄明白为什么......我们还是很陌生。 这就是我们所做的。

这是数据：

这是我们正在使用的代码：

Answer 1

你的问题在于这一行：

If FR <> 0 Then w2.Range("C" & FR).Value = c.Offset(0, -3)

偏移量告诉它从列“A”左侧的3列获取信息。 “A”左侧没有列，因此您收到此错误。我想你想要这个：

If FR <> 0 Then w2.Range("C" & FR).Value = c.Offset(0, 3)