如果行包含特定值，则将一行从一个工作表复制到另一个工作表

Question

这不应该是复杂的代码，但我是Excel VBA的新手。我尝试了很多不同的方法，导致错误，无限循环和错误的选择。

我需要一行一行地通过“Sheet1”一次选择一行，检查列J中的值是否正确（值= 131125），如果是则复制 - 将行粘贴到“Sheet2”（与Sheet1中的行相同。

非常感谢帮助！ :)

Answer 1

Sub Test()
For Each Cell In Sheets(1).Range("J:J")
    If Cell.Value = "131125" Then
        matchRow = Cell.Row
        Rows(matchRow & ":" & matchRow).Select
        Selection.Copy

        Sheets("Sheet2").Select
        ActiveSheet.Rows(matchRow).Select
        ActiveSheet.Paste
        Sheets("Sheet1").Select
    End If
Next
End Sub