如何使用VBA删除Excel特定类型单元格中的英文字符且不改动其他内容

核心逻辑采用正则匹配实现精准判断，仅修改符合规则的单元格，兼容性强、执行效率高，无需硬编码判断字符长度。

使用步骤 #

1. 打开目标Excel文件，按下Alt + F11调出VBA编辑器
2. 在左侧项目面板右键点击你的工作簿名称，依次选择「插入」→「模块」
3. 将下方代码粘贴到模块编辑区域

Sub 清理指定格式单元格()
    Dim regEx As Object
    Dim cell As Range
    Dim match As Object
    
    ' 后期绑定正则对象，无需手动引用库
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = False
        .Pattern = "^(\d{5})[a-zA-Z_]+$" ' 匹配规则：开头5位数字+后续仅字母/下划线
        .IgnoreCase = True ' 不区分大小写，适配OS、os这类大小写混合的后缀
    End With
    
    ' 遍历当前选中的所有单元格
    For Each cell In Selection
        ' 跳过空单元格
        If cell.Value <> "" Then
            If regEx.Test(cell.Value) Then
                ' 匹配成功则提取前5位数字替换原内容
                Set match = regEx.Execute(cell.Value)
                cell.Value = match(0).SubMatches(0)
            End If
        End If
    Next cell
    
    ' 释放内存
    Set regEx = Nothing
    Set cell = Nothing
    Set match = Nothing
End Sub

4. 回到Excel界面，选中你需要处理的列/单元格区域，按下Alt + F8调出宏列表，选择「清理指定格式单元格」点击执行即可

适配说明 #

• 自动跳过所有不符合规则的单元格：纯5位数字、长度不等于5位的纯数字、开头非数字的内容都不会被修改，完全匹配需求
• 如果后缀包含除字母、下划线外的其他符号，只需修改代码中Pattern行的正则规则，比如后缀包含横杠就将[a-zA-Z_]改为[a-zA-Z_-]
• 运行宏前建议先备份原文件，避免误操作无法回退

内容的提问来源于stack exchange，提问作者Vojtěch K.