循環搜索workbook1中的數據，將偏移單元格復制到workbook2

Question

我需要一個循環來復制從 SOURCE 中找到的值偏移的單元格（基於 DESTINATION 中的范圍）到 DESTINATION。

在這種情況下，我想根據 DESTINATION 中的值 ("H5") 在 SOURCE 中找到值 ("E10") 后，將值從 SOURCE ("K10") 復制到 DESTINATION ("G5")。

我需要搜索 DESTINATION ("H:H") 中的所有值。

Book_source.xlsx

Book_destination.xlsx

我記錄的代碼：

 Windows("Book_destination.xlsx").Activate
    Dim rng As Variant
    rng = Range("H5").Value

    rng.Select
    Selection.Copy
    Application.WindowState = xlNormal

    Windows("Book_source.xlsx").Activate
    Cells.Find(What:=rng, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

    ActiveCell.Offset(0, 6).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Book_destination.xlsx").Activate
    Range("G5").Select
    ActiveSheet.Paste

Answer 1

我創建了這段代碼並為我工作。 對於任何有興趣的人

感謝大家。 :) 享受吧，它是免費的！

我很高興分享這個。

Sub part_of_code()

    Dim i As Integer
    i = 2

    'calling LastRow
    Call LastRecord(LastRow)

    For i = i To LastRow
        On Error Resume Next
        'Application.WindowState = xlNormal
        Range("H" & i).Select
        Selection.Copy
        Dim rng As Variant
        rng = Range("H" & i)

        Workbooks("Book2.xlsx").Worksheets("Sheet1").Activate
        Cells.Find(What:=rng, After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Offset(0, 6).Select
        Application.CutCopyMode = False
        Selection.Copy
        Workbooks("Book1.xls").Worksheets("Sheet2").Activate
        Range("H" & i).Offset(0, -1).Select
        ActiveSheet.Paste
    Next i

End Sub

Private Sub LastRecord(LastRow)
  With ActiveSheet
     LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
  End With
End Sub