VBA Excel删除具有特定值的行

Sub DeleteRowsWithSpecificValue()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim deleteRange As Range
    Dim specificValue As Variant
    
    ' 设置工作表和要搜索的范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名称
    Set rng = ws.Range("A1:A10") ' 替换为实际的范围
    
    ' 设置要删除的特定值
    specificValue = "特定值" ' 替换为实际的特定值
    
    ' 遍历范围，找到具有特定值的单元格
    For Each cell In rng
        If cell.Value = specificValue 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