Excel VBA: 删除H列中“C+数字”前面的数字字符

以下是一个可能的解决方案：

Sub DeleteDigitsBeforeC()
    Dim lastRow As Long
    Dim i As Long
    Dim cellValue As String
    Dim cIndex As Long
    lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row '获取H列的最后一行
    
    For i = 1 To lastRow '循环H列中的每个单元格
        cellValue = ActiveSheet.Cells(i, "H").Value '获取单元格的值
        cIndex = InStr(1, cellValue, "C") '查找第一个C的位置
        If cIndex > 1 Then '如果C不在第一个字符位置
            ActiveSheet.Cells(i, "H").Value = Mid(cellValue, cIndex) '删除C前的数字字符
        End If
    Next i
End Sub

请将此代码复制到Excel的VBA编辑器中，并将其运行在您的工作簿中。它将检查H列中的每个单元格，如果单元格的值包含'C'，则会删除'C'前的数字字符。请注意，此代码将更改原始数据，因此请确保在运行此代码之前备份您的工作表。