Excel的VBA代码-在另一个工作簿中查找一个单元格值，并将相邻的单元格复制到第一个工作簿中

Question

我有一个快速的问题; 我有两个工作簿，分别是wbk1和wbk2； 我想做的是在wbk2的特定列中找到wbk1中一列的每个像元值，并将偏移量像元值从wbk2返回到wbk1中搜索值的相邻像元。

有谁可以帮忙吗？ 顺便说一下，如果有帮助，我可以找到以下代码； “=================

Sub find1()

Dim Key
Dim Target
Dim Hnum
Dim Success
Dim wbk As Workbook
Dim Lastrow As Long
Dim one As Long

Success = False
Application.ScreenUpdating = False

strSecondFile = "C:\Soroush\08- Technical\03- Stock\Test\PL_Test_01\PL_Test_01.xlsm"
strFrthFile = "C:\Soroush\08- Technical\03- Stock\CNC_Test.xlsx"
'==

 Sheets("sheet2").Select

    Lastrow = ActiveSheet.UsedRange.Rows.Count

    If Not IsEmpty(Cells(5, 9).Value) Then
    Key = Cells(5, 9).Value

 For i = 5 To Lastrow

' If Not IsEmpty(Cells(i, 9).Value) Then
'    Key = Cells(i, 9).Value

 Set wbk = Workbooks.Open(strFrthFile)
 With wbk.Sheets("Sheet1")

    Set Target = Columns(1).find(Key, LookIn:=xlValues)

    If Not Target Is Nothing Then

        ActiveCell.Select
        Selection.Copy


        Set wbk = Workbooks.Open(strSecondFile)
            With wbk.Sheets("Sheet2")
                Sheets("Sheet2").Select
                    Cells(i, 10).Select
                        ActiveCell.Paste


                 If Not IsEmpty(Cells(i + 1, 9).Value) Then
                    Key = Cells(i + 1, 9).Value

            End If

        End With

    End If

 End With
'End If

 Next
    End If

End Sub


'=========================================================================

但这行不通，我无法弄清楚。 感谢您对此宏的任何评论。

干杯

Answer 1

您可以使用INDEX和MATCH。

在这种情况下，单元格E2中的值与B2至B6中的值匹配。 然后针对C列对此进行索引，并返回C列中的值。

*忽略“哺乳动物”的错字！