excel - 从另一个文件中获取值

Question

我想得到值 来自另一个基于 的工作簿编号并在列之间插入一个新列。

例如，我有这样的数据:
第一个工作簿在左边，第二个工作簿在右边。


在第二个工作簿上，我想在列之间插入一个新列，并根据 放置值编号点击后命令按钮1 .

所以第二个工作簿在宏之后看起来像这样

Answer 1

尝试:

Dim wsSource As Worksheet
Set wsSource = ActiveWorkbook.Worksheet("NAME SOURCE SHEET")
Dim wsOutput As Worksheet
Set wsOutput = ActiveWorkbook.Worksheet("NAME OUTPUT SHEET")
Dim ID as Range
Dim FindID as Range
Dim lRowSource as Integer
Dim lRowOutput as Integer

lRowSource = wsSource.Range("A" & Rows.Count).End(xlUp).row
lRowOutput = wsSource.Range("A" & Rows.Count).End(xlUp).row

With wsOutput
    Range("B1").EntireColumn.Insert

    For each ID in .Range("A1:A" & lRowSource)
    Set FindID = wsSource.Range("A1:A" & lRowOutput).Find(What:=ID, LookIn:=xlValues, lookat:=xlWhole)

    If Not FindID is Nothing then
        wsSource.Range("B" & FindID.Row).Copy Destination:=wsOutput.Range("B" & FindID.Row)
    Else
        Exit Sub
    End If
End With

或者你也可以使用:

Dim wsSource As Worksheet
Set wsSource = ActiveWorkbook.Worksheet("NAME SOURCE SHEET")
Dim wsOutput As Worksheet
Set wsOutput = ActiveWorkbook.Worksheet("NAME OUTPUT SHEET")
Dim i As Long

wsOutput.Range("B1").EntireColumn.Insert

For i=1 To wsSource.UsedRange.Rows.Count
    If wsSource.Range("A" & i) = wsOutput.Range("A" & i) Then
        wsSource.Range("B" & i).Copy Destination:=wsOutput.Range("B" & i)
    End If
Next i