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

使用excel中的VBA从另一个工作簿中提取数据

1 个答案: