在1列中搜索特定的术语，如果发现，则将整行复制到另一个工作表中

Sub SearchAndCopy()
    Dim searchTerm As String
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置搜索术语
    searchTerm = "你要搜索的术语"
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("原始工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 获取源工作表的最后一行
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历源工作表的每一行
    For i = 1 To lastRow
        ' 检查当前行是否包含搜索术语
        If InStr(1, sourceSheet.Cells(i, 1).Value, searchTerm, vbTextCompare) > 0 Then
            ' 复制整行到目标工作表
            sourceSheet.Rows(i).Copy targetSheet.Rows(targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1)
        End If
    Next i
End Sub