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

VBA（Visual Basic for Applications）是一种用于自动化任务和宏编程的编程语言，它可以在Microsoft Office套件中的各种应用程序中使用，包括Excel、Word、PowerPoint等。通过使用VBA，您可以编写代码来执行各种操作，例如数据处理、格式化、图表生成等。

要将包含特定文本的特定行复制到另一个工作表，您可以使用以下步骤：

打开Excel，并打开包含要复制的数据的工作簿。
在工作簿中，按下Alt + F11打开VBA编辑器。
在VBA编辑器中，插入一个新的模块。可以通过右键单击项目资源管理器中的工作簿名称，然后选择“插入”>“模块”来完成。
在新模块中，编写以下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

请注意，您需要将代码中的“源工作表名称”和“目标工作表名称”替换为实际的工作表名称。您还可以将“特定文本”替换为您要搜索的特定文本。