我有 2 個工作簿，我需要根據匹配值將列從一個工作簿復制到另一個工作簿

Question

我有 2 個工作簿，我需要根據兩個工作簿中相似的另一列的匹配值將列從一個工作簿復制到另一個工作簿。我無法應用查找或任何其他解決方案，請幫助我使用 vba 代碼以上問題。

Answer 1

從我從您的問題中可以看出，您希望從一個工作簿到另一個工作簿具有重復的值。 我建議的是將下面的代碼附加到按鈕上。 在這個例子中，下面的代碼將匹配從 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