我希望使用VBA将包含特定文本的特定行复制到另一个工作表

Sub CopyRowsWithSpecificText()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim searchText As String
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.UsedRange
    Set targetRange = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Offset(1, 0)
    
    ' 设置要搜索的文本
    searchText = "特定文本"
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 检查单元格的值是否包含搜索文本
        If InStr(1, cell.Value, searchText, vbTextCompare) > 0 Then
            ' 复制整行到目标范围
            cell.EntireRow.Copy targetRange
            ' 将目标范围向下移动一行，以便下一行复制
            Set targetRange = targetRange.Offset(1, 0)
        End If
    Next cell
End Sub