写一个excel的vba逻辑是检查H列的数据不限字符数找到单元格中符合C+数字的符并删除

Sub DeleteCells() Dim i As Integer Dim lastRow As Integer

lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row

For i = 1 To lastRow If InStr(ActiveSheet.Range("H" & i).Value, "C") > 0 And IsNumeric(Right(ActiveSheet.Range("H" & i).Value, Len(ActiveSheet.Range("H" & i).Value) - InStr(ActiveSheet.Range("H" & i).Value, "C")))=True Then ActiveSheet.Range("H" & i).ClearContents End If Next i

End Sub