Excel VBA 代码：删除 H 列单元格中 'C+数字' 字符后面的内容

本代码用于检查 H 列单元格中的数据，找到包含 'C+数字' 字符的单元格，并删除该字符后面的内容。

Sub CheckAndRemove()
    Dim lastRow As Long
    Dim cell As Range
    Dim str As String
    Dim numPos As Long
    
    '获取最后一行
    lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row
    
    '循环检查每个单元格
    For Each cell In Range("H2:H" & lastRow)
        str = cell.Value
        numPos = InStr(str, "C")
        If numPos > 0 And IsNumeric(Mid(str, numPos + 1, 1)) Then
            '找到 'C+数字' 的字符并删除其后面的字符
            cell.Value = Left(str, numPos + 1)
        End If
    Next cell
    
End Sub

代码说明：

lastRow 变量用于获取 H 列的最后一行。
cell 变量用于循环遍历每个单元格。
str 变量用于存储当前单元格的值。
numPos 变量用于存储 'C' 字符的位置。
InStr(str, "C") 函数用于查找 'C' 字符的位置。
IsNumeric(Mid(str, numPos + 1, 1)) 函数用于判断 'C' 字符后面的字符是否为数字。
Left(str, numPos + 1) 函数用于获取 'C' 字符及其前面的所有字符。

使用方法：

打开 Excel 工作簿并选中包含需要处理数据的表格。
按 Alt + F11 键打开 VBA 编辑器。
在 VBA 编辑器中插入一个模块。
将上面的代码复制到模块中。
按 F5 键运行代码。

运行结果：

H 列中包含 'C+数字' 字符的单元格，其后面的字符将被删除。

注意：

此代码只适用于 H 列。
如果 'C' 字符后面不是数字，则该单元格不会被修改。