如何编写VBA循环脚本批量将单元格前2个字符替换为对应整数？

我来帮你搞定这个VBA脚本的问题！你需要的是遍历A列从A1开始的所有有效单元格，根据前两个字符替换成对应数字，下面是完整的实现方案：

核心思路说明 #

• 先定位A列最后一个非空单元格的行号，避免无意义地遍历整个列（毕竟Excel列有上万行）
• 用循环逐个处理每个单元格内容
• 用Select Case替代多个ElseIf，让代码更简洁易维护
• 可选择直接修改原单元格，或者将结果输出到其他列（比如B列）

完整VBA代码 #

Sub ReplacePrefixes()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim cellValue As String
    Dim newText As String
    
    ' 设置操作的工作表，这里用当前激活的表，也可改成指定表名如Sheet1
    Set ws = ActiveSheet
    
    ' 精准找到A列最后一个非空单元格的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从A1开始遍历到最后一行
    For i = 1 To lastRow
        cellValue = ws.Cells(i, "A").Value
        ' 跳过空单元格，避免无效操作
        If cellValue <> "" Then
            ' 根据前缀匹配替换规则
            Select Case Left(cellValue, 2)
                Case "NI"
                    newText = Replace(cellValue, "NI", "801", 1, 1) ' 只替换开头的第一个NI
                Case "RE"
                    newText = Replace(cellValue, "RE", "821", 1, 1)
                Case "NV"
                    newText = Replace(cellValue, "NV", "571", 1, 1)
                Case "NF"
                    newText = Replace(cellValue, "NF", "831", 1, 1)
                Case Else
                    ' 前缀不匹配时，保持原内容不变
                    newText = cellValue
            End Select
            ' 将结果写回原单元格，若不想改动原数据，可改成写入B列：ws.Cells(i, "B").Value = newText
            ws.Cells(i, "A").Value = newText
        End If
    Next i
    
    MsgBox "替换完成！", vbInformation
End Sub

关键细节解释 #

• 高效定位最后一行：ws.Cells(ws.Rows.Count, "A").End(xlUp).Row是Excel VBA里找最后一行的标准写法，能精准定位到A列最后一个有内容的单元格，大幅提升运行效率
• Replace函数的精准性：最后两个参数1,1表示从第1个字符开始，只替换1次，避免单元格中后续出现的相同前缀被误替换（比如内容是"NIabcNI"时，只会替换开头的NI）
• 灵活的输出方式：如果不想修改原A列的数据，只需把写回单元格的代码改成写入其他列即可，比如ws.Cells(i, "B").Value = newText

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