如何使用VBA从Excel中查找多个字符串并复制到另一个电子表格中

Sub FindAndCopyStrings()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim searchString As String
    Dim cell As Range
    Dim targetRow As Long
    
    ' 设置源电子表格和目标电子表格
    Set sourceSheet = ThisWorkbook.Sheets("源电子表格名称")
    Set targetSheet = ThisWorkbook.Sheets("目标电子表格名称")
    
    ' 设置要查找的字符串
    searchString = "要查找的字符串"
    
    ' 初始化目标行号
    targetRow = 1
    
    ' 遍历源电子表格中的每个单元格
    For Each cell In sourceSheet.UsedRange
        ' 检查单元格的值是否包含要查找的字符串
        If InStr(1, cell.Value, searchString, vbTextCompare) > 0 Then
            ' 如果找到匹配的字符串，将其复制到目标电子表格中的下一行
            targetSheet.Cells(targetRow, 1).Value = cell.Value
            targetRow = targetRow + 1
        End If
    Next cell
End Sub