VBA在两个工作表的特定列中搜索字符串，如果找到则删除

Sub SearchAndDelete()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim searchRange As Range, cell As Range
    Dim searchString As String
    
    ' 设置要搜索的字符串
    searchString = "要搜索的字符串"
    
    ' 设置要进行搜索和删除操作的两个工作表
    Set ws1 = ThisWorkbook.Worksheets("工作表1")
    Set ws2 = ThisWorkbook.Worksheets("工作表2")
    
    ' 设置要进行搜索的列范围
    Set searchRange = ws1.Range("A1:A100") ' 修改为实际的列范围
    
    ' 在第一个工作表中搜索并删除匹配的字符串
    For Each cell In searchRange
        If cell.Value = searchString Then
            cell.Delete Shift:=xlUp ' 删除匹配的单元格，并向上移动其他单元格
        End If
    Next cell
    
    ' 在第二个工作表中搜索并删除匹配的字符串
    searchRange = ws2.Range("B1:B100") ' 修改为实际的列范围
    For Each cell In searchRange
        If cell.Value = searchString Then
            cell.Delete Shift:=xlUp ' 删除匹配的单元格，并向上移动其他单元格
        End If
    Next cell
End Sub