用于搜索字符串的VBA代码，如果找到该字符串，则将其粘贴到其他工作表中

Sub SearchAndPaste()
    Dim searchString As String
    Dim pasteSheet As Worksheet
    Dim searchRange As Range
    Dim cell As Range
    
    ' 设置要搜索的字符串
    searchString = "要搜索的字符串"
    
    ' 设置要粘贴到的工作表
    Set pasteSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置要搜索的范围，这里假设搜索范围是当前工作表的A列
    Set searchRange = ThisWorkbook.ActiveSheet.Range("A:A")
    
    ' 遍历搜索范围中的每个单元格
    For Each cell In searchRange
        ' 检查单元格的值是否包含搜索字符串
        If InStr(1, cell.Value, searchString, vbTextCompare) > 0 Then
            ' 将找到的字符串粘贴到目标工作表的下一个空行
            pasteSheet.Cells(pasteSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = cell.Value
        End If
    Next cell
End Sub