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

Sub DeleteCNumber()

Dim lastRow As Long
lastRow = Cells(Rows.Count, "H").End(xlUp).Row '获取最后一行

Dim i As Long
For i = 1 To lastRow '循环每一行
    Dim cellValue As String
    cellValue = Cells(i, "H").Value '获取单元格中的值
    
    Dim pattern As String
    pattern = "C\d+" '正则表达式，匹配"C+数字"
    
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp") '创建正则表达式对象
    regex.Pattern = pattern '设置正则表达式
    
    If regex.Test(cellValue) Then '如果匹配成功
        Cells(i, "H").ClearContents '清空单元格中的值
    End If
    
    Set regex = Nothing '释放资源
Next i

End Sub