Excel:如何将包含某些文本的行复制到另一个工作表(VBA)

Sub CopyRowsWithText()
    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.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源范围（假设要在A列中查找文本）
    Set sourceRange = sourceSheet.Range("A1:A" & sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 设置目标范围的起始行
    Set targetRange = targetSheet.Range("A1")
    
    ' 设置要查找的文本
    searchText = "要查找的文本"
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 如果单元格中包含要查找的文本，则复制整行到目标工作表
        If InStr(1, cell.Value, searchText, vbTextCompare) > 0 Then
            cell.EntireRow.Copy targetRange
            ' 将目标范围的起始行向下移动一行，以便复制下一行
            Set targetRange = targetRange.Offset(1)
        End If
    Next cell
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 弹出消息框显示复制完成
    MsgBox "复制完成！"
End Sub