Excel：如何将包含某些文本的行复制到另一个工作表（VBA）

我希望使用一个能够搜索所述工作表中的列的宏，如果找到某些文本 - 在我的例子中是“失败”一词 - 复制整个行数据/格式并将其粘贴到另一个工作表中 - 工作表就我而言，为 4 - 以及包含该特定文本的任何其他行。

我一直在使用这段代码，但它只复制粘贴一行然后停止，而不是遍历并复制带有“FAIL”的任何行

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

    Sheets(4).Select
    ActiveSheet.Rows(matchRow).Select
    ActiveSheet.Paste
    Sheets(4).Select
   End If
Next 
End Sub

第一篇文章，对 VBA 来说是全新的，所以如果太含糊的话，我们深表歉意。

尝试下面的代码（代码中的解释作为注释）：

Option Explicit

Sub Test()

Dim Cell As Range

With Sheets(1)
    ' loop column H untill last cell with value (not entire column)
    For Each Cell In .Range("H1:H" & .Cells(.Rows.Count, "H").End(xlUp).Row)
        If Cell.Value = "FAIL" Then
             ' Copy>>Paste in 1-line (no need to use Select)
            .Rows(Cell.Row).Copy Destination:=Sheets(4).Rows(Cell.Row)
        End If
    Next Cell
End With

End Sub