如何宏搜索具有相同值的另一个单元格，然后更改值？

Question

我希望宏能够查找与B2中相同的值。然后将范围D2:G2中的值复制到找到的范围。在此示例中D9:G9。

提前谢谢你：D。

我试过了：

Sub Button1_Click()

Dim myRng1, myRng2 As Range, cell As Range

Set myRng1 = Range("A4:A1000")
Set myRng2 = Range("D2:G2")

myRng2.Select
Selection.Copy

For Each cell In myRng1
    If Range("A2") = Range("A" & cell.Row) Then Range("D" & cell.Row).Select
    ActiveSheet.Paste
Next cell

End Sub

Answer 1

Sub Find()
Dim Findcode As String
Dim Rng As Range

Range("A2:F2").Select
Selection.Copy
Findcode = Sheets("Sheet1").Range("a2").Value
If Trim(Findcode) <> "" Then
    With Sheets("Sheet1").Range("A4:A60000")
        Set Rng = .Find(What:=Findcode, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            Application.Goto Rng, True
            ActiveSheet.Paste
        Else
            MsgBox "Nothing found"
        End If
    End With
End If
End Sub