Excel VBA: 删除 H 列单元格中 'C+数字' 后面的字符

Excel VBA: 删除 H 列单元格中 'C+数字' 后面的字符

本 VBA 代码用于检查 Excel 工作表 H 列所有单元格，查找包含 'C+数字' 的字符，并将 'C+数字' 后面的字符内容删除。

Sub CheckAndRemove()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row
    
    For i = 1 To lastRow
        If InStr(1, Range("H" & i).Value, "C") > 0 Then '检查是否存在'C'
            If IsNumeric(Mid(Range("H" & i).Value, InStr(1, Range("H" & i).Value, "C") + 1, 1)) Then '检查'C'后面是否为数字
                Range("H" & i).Value = Left(Range("H" & i).Value, InStr(1, Range("H" & i).Value, "C") + 1) '删除'C'后面的字符
            End If
        End If
    Next i
    
End Sub

代码说明:

1. lastRow 变量记录 H 列最后一个非空单元格的行号。
2. 循环遍历 H 列所有单元格。
3. 使用 InStr 函数检查单元格内容中是否存在 'C' 字符。
4. 使用 IsNumeric 函数检查 'C' 后面的字符是否为数字。
5. 如果满足条件，则使用 Left 函数截取 'C' 及其后面的第一个数字，并将截取后的内容赋值回单元格。

使用方法:

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

注意:

• 代码中的 'H' 代表 H 列，您可以根据需要修改为其他列字母。
• 代码只删除 'C' 后面的第一个数字后面的字符。
• 如果 H 列中存在多个 'C+数字' 组合，代码只处理第一个组合。

希望本代码能够帮助您解决问题。如果您有任何其他问题，请随时提问。