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列中的值。

*忽略“哺乳動物”的錯字！