Excel单元格文本追加字符并递增字母的VBA代码实现求助

我来帮你搞定这个VBA功能的实现，完全匹配你想要的需求：把上方单元格的编号复制到下面的空白单元格，末尾依次追加递增的字母（A→B→C…），直到碰到下一个新编号为止。

完整代码 #

Sub FillWithIncrementalLetters()
    Dim currentCell As Range
    Dim originalValue As String
    Dim currentLetter As Integer
    Dim nextCellValue As String
    
    ' 从当前选中的有效编号单元格开始
    Set currentCell = ActiveCell
    
    ' 先校验选中的单元格是否有值，避免空值报错
    If currentCell.Value = "" Then
        MsgBox "请先选中一个包含有效编号的单元格哦！", vbExclamation
        Exit Sub
    End If
    
    originalValue = currentCell.Value
    currentLetter = Asc("A") ' 初始字母设为A的ASCII码
    
    ' 循环处理下方空白单元格
    Do While True
        ' 移动到下一行单元格
        Set currentCell = currentCell.Offset(1, 0)
        
        ' 如果下一个单元格有新编号，直接退出循环
        If currentCell.Value <> "" Then
            Exit Do
        End If
        
        ' 给空白单元格赋值：原编号 + 当前字母
        currentCell.Value = originalValue & Chr(currentLetter)
        
        ' 字母递增（A→B→C...）
        currentLetter = currentLetter + 1
        
        ' 可选：防止字母超过Z后无限循环，按需调整
        If currentLetter > Asc("Z") Then
            MsgBox "已经到字母Z啦，停止处理！", vbInformation
            Exit Do
        End If
    Loop
End Sub

代码说明 #

• 初始校验：先检查选中的单元格是否有值，避免空值运行报错，弹出提示引导用户操作。
• 循环逻辑：用Do While True持续遍历下方单元格，只要碰到非空的新编号就立刻停止循环。
• 字母递增：通过ASCII码转换实现字母顺序递增，Asc("A")获取A的ASCII码65，每次加1后用Chr()转回对应字母。
• 边界控制：加入了字母到Z后的停止提示，如果你需要支持AA、AB这类多字母递增，可以修改这部分逻辑（比如加入进位判断）。

使用步骤 #

1. 选中第一个需要复制的编号单元格（比如内容为VP0007的单元格）。
2. 运行这个宏，它会自动填充下方空白单元格为VP0007A、VP0007B…直到碰到下一个有值的单元格（比如VP0008）。

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