Vba 我有两个工作簿，我需要根据匹配值将列从一个工作簿复制到另一个工作簿

我有两个工作簿，我需要根据两个工作簿中相似的另一列的匹配值将这些列从一个工作簿复制到另一个工作簿。我无法应用查找或任何其他解决方案，请帮助我解决上述问题的vba代码。

从您的问题中我可以看出，您希望在一个工作簿到另一个工作簿之间有重复的值。我建议将下面的代码附在按钮上。下面的代码将匹配本例中从A到I的每一列。它对资源的负担要轻得多，但如果您希望日期不符合美国顺序，则需要额外的代码

Sub NewButton()
Dim wb As Workbook
Dim wb2 As Workbook
Dim ws As Worksheet
Dim ws2 As Worksheet

Set wb = ThisWorkbook
Set ws = wb.Worksheets("Sheet 1")
Set wb2 = Workbooks.Open("File Directory of second workbook")
Set ws2 = wb2.Worksheets("Sheet 1")

   ws.Range("A:I") = ws2.Range("A:I").Value

End Sub

---

张贴您迄今为止编写的代码，以便我们提供帮助。我曾尝试编写，但它不起作用。请在逻辑和代码方面帮助我。您能否至少添加一个示例，说明您拥有的内容和您想要的内容（如果是私有的，请使用虚拟数据）？在这一点上，这个问题至少可以说是不清楚的。我需要根据另一个单元格的匹配值复制该值，因此请进行修改。所有这些，而不是9行代码

ws.Range（“A:I”）=ws2.Range（“A:I”）.Value

您需要提供更多的信息，因为我提供的只是您提到的一点猜测。请提供您代码的详细信息，我们可以查看。