Excel VBA:如果在另一个范围内找到单元格值，则循环删除行

Sub DeleteRows()
    Dim searchRange As Range
    Dim cell As Range
    Dim deleteRange As Range
    
    ' 设置要查找的范围
    Set searchRange = Range("A1:A10")
    
    ' 循环遍历范围内的每个单元格
    For Each cell In searchRange
        ' 判断单元格的值是否符合条件
        If cell.Value = "要查找的值" Then
            ' 如果符合条件，则将该行添加到删除范围
            If deleteRange Is Nothing Then
                Set deleteRange = cell.EntireRow
            Else
                Set deleteRange = Union(deleteRange, cell.EntireRow)
            End If
        End If
    Next cell
    
    ' 删除删除范围内的行
    If Not deleteRange Is Nothing Then
        deleteRange.Delete
    End If
End Sub