Excel批量替换多格式测试用例ID为带前导零的标准格式

针对你遇到的4000个格式各异的测试用例ID统一需求（短横线后数字补前导零至4位，如XYZ-0123），且单元格内存在多ID混合文本的场景，以下是两种可行方案：

方法一：VBA宏批量处理 #

VBA可通过正则表达式精准匹配并替换所有符合规则的ID，完全不破坏其他文本内容：

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧工程窗口的当前工作簿，选择「插入」→「模块」
3. 粘贴以下代码：

Sub StandardizeTestIDs()
    Dim regEx As Object
    Dim cell As Range
    Dim matches As Object
    Dim match As Object
    Dim newID As String
    
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    ' 匹配规则：字母前缀+短横线+1-4位数字，兼容RQ-1、RZQ-43这类格式
    regEx.Pattern = "([A-Za-z]+)-(\d{1,4})"
    
    ' 遍历当前工作表所有已使用单元格，可自行限定范围如Range("A1:D1000")
    For Each cell In ActiveSheet.UsedRange
        If cell.Value <> "" Then
            Set matches = regEx.Execute(cell.Value)
            For Each match In matches
                ' 补前导零至4位，拼接成标准ID
                newID = match.SubMatches(0) & "-" & Format(match.SubMatches(1), "0000")
                ' 替换原ID
                cell.Value = Replace(cell.Value, match.Value, newID)
            Next match
        End If
    Next cell
    
    Set regEx = Nothing
    MsgBox "ID格式统一完成！"
End Sub

4. 按下F5运行宏，等待处理结束即可

提示：运行前务必备份文件；如果ID前缀有特定限制（比如仅允许RQ、RZQ等），可将正则里的[A-Za-z]+修改为(RQ|RZQ|NA|SZQ|XD|RX)来精准匹配指定前缀。

方法二：Power Query分步处理 #

适合不熟悉代码的用户，通过可视化操作完成：

1. 选中数据区域，点击「数据」选项卡→「从表格/区域」（勾选「我的表格有标题」）
2. 在Power Query编辑器中，选中需要处理的列，点击「转换」→「替换值」→「高级替换」
3. 勾选「使用正则表达式」，输入匹配模式([A-Za-z]+)-(\d{1,4})，替换为$1-0000后点击「替换全部」
4. 进一步补零：将列按-拆分为两列，把数字列设置为文本格式，用「填充」功能补前导零至4位，再将两列合并为一列（分隔符用-）
5. 处理完成后，点击「关闭并上载」，将结果导入新工作表

两种方案均能批量处理单元格内的多ID场景，且不会破坏作废说明、层级调整等周边文本。

内容的提问来源于stack exchange，提问作者GH05TB34RD