如何在VBA中搜索和删除包含"Jan-00“的单元格

Sub SearchAndDelete()
    Dim rng As Range, cell As Range
    Dim searchValue As String
    
    '设置要搜索的数值
    searchValue = "Jan-00"
    
    '设置要搜索的范围，例如ActiveSheet.UsedRange表示搜索当前活动工作表的所有已使用单元格
    Set rng = ActiveSheet.UsedRange
    
    '遍历范围中的每个单元格
    For Each cell In rng
        '检查单元格的值是否包含搜索值
        If InStr(1, cell.Value, searchValue) > 0 Then
            '删除包含搜索值的单元格
            cell.Delete Shift:=xlUp '根据实际需求选择删除方式
        End If
    Next cell
End Sub