删除单元格包含"V“Excel VBA的行

Sub DeleteRowsWithV()
    Dim rng As Range
    Dim cell As Range
    Dim deleteRange As Range
    
    Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) '假设要删除的数据在A列
    
    For Each cell In rng
        If InStr(1, cell.Value, "V", vbTextCompare) > 0 Then '判断单元格的值是否包含"V"
            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 '删除包含"V"的行
    End If
End Sub