如何替换字符串前两位字符？Excel VBA实现C列以49开头时A列连续编号

以下是满足需求的完整VBA代码，包含两种场景的处理逻辑：

Sub ModifyColumnA()
    Dim lastRow As Long
    Dim myRow As Long
    Dim deCounter As Integer
    
    ' 获取C列最后一行数据的行号
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    ' 初始化DE-编号的计数器
    deCounter = 1
    
    ' 遍历所有行（如果有表头，把1改成2）
    For myRow = 1 To lastRow
        ' 判断C列当前行是否以"49"开头
        If Cells(myRow, "C").Value Like "49*" Then
            ' 赋值DE-递增编号
            Cells(myRow, "A").Value = "DE-" & deCounter
            deCounter = deCounter + 1
        Else
            ' 修改A列当前行的前两个字符，把"XX"换成你需要的字符
            If Len(Cells(myRow, "A").Value) >= 2 Then
                Cells(myRow, "A").Value = "XX" & Mid(Cells(myRow, "A").Value, 3)
            Else
                ' 若A列内容不足2个字符，直接拼接前缀（可根据需求调整）
                Cells(myRow, "A").Value = "XX" & Cells(myRow, "A").Value
            End If
        End If
    Next myRow
End Sub

关键说明 #

• 编号连续性：用deCounter变量确保DE-1、DE-2...的编号依次递增，不会重复或断号
• 最后一行判断：通过Rows.Count和End(xlUp)自动识别数据的最后一行，无需手动指定行号
• 前两个字符修改：代码中用"XX"作为替换的前两个字符，你可以根据实际需求替换成任意字符串；同时处理了A列内容不足2个字符的情况，避免报错
• 表头兼容：如果你的表格有表头行，把循环起始的1改成2即可跳过表头

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