在Excel中使用VBA從另一個工作簿中提取數據

Question

我在2個工作簿中有一系列唯一的項目ID。 其中一個工作簿不包含項目的詳細信息，而另一個工作簿則包含所有項目的詳細信息。

我想根據另一工作簿中找到的唯一項目ID從一個工作簿中提取信息。 我已經嘗試對此進行編碼，但是它僅適用於從外部工作簿中提取具有項目ID的數據。 我需要它來提取列中給定的一系列項目ID的數據。

這是我目前擁有的代碼：

Sub AAA()

    If Workbooks("Source.xlsm").Sheets("Sheet2").Range("A2").Value = Workbooks("Target.xlsm").Sheets("Sheet1").Range("A2").Value Then
        Workbooks("Source.xlsm").Sheets("Sheet2").Range("B2").Value = Workbooks("Target.xlsm").Sheets("Sheet1").Range("C2").Value
    End If

End Sub

這段代碼僅適用於特定的單元格，但是我需要從外部工作簿中的一系列項目ID中提取一系列數據。 我該怎么做才能使它正常工作？

Answer 1

根據您的問題，您需要再添加一個循環，試試這個

Sub copydata()
Dim i As Long, j As Long
Dim targetlastrow As Long, sourcelstrow As Long
Dim Sourcelastcol As Long
Dim source As Worksheet
Dim target As Worksheet

Set source = Workbooks("Source.xlsm").Sheets("Sheet2")
Set target = Workbooks("Target.xlsm").Sheets("Sheet1")

targetlastrow = target.Range("A" & target.Rows.Count).End(xlUp).Row
sourcelstrow = source.Range("A" & source.Rows.Count).End(xlUp).Row
Sourcelastcol = source.Cells(2, source.Columns.Count).End(xlToLeft).Column

For i = 2 To targetlastrow
    For j = 2 To sourcelstrow
        If target.Range("A" & i).Value = source.Range("A" & j) Then
            source.Activate
            source.Range("B" & j).Select
            Range(ActiveCell, ActiveCell.Offset(0, Sourcelastcol)).Copy
            target.Range("B" & i).PasteSpecial
        End If
    Next j
Next i
End Sub