Excel VBA求助：实现A列001/N列01序列重置功能

针对你的需求，以下是添加了序列重置逻辑的完整VBA代码，当A列序列达到999时自动重置为001，N列序列达到99时自动重置为01：

Sub GenerateNewSequence()
    Dim ASeq As Integer, NSeq As Integer
    
    ' 处理A列序列（001-999，超上限重置为001）
    ASeq = Range("A7").Value ' 获取当前A7的序列值（数字格式）
    If ASeq >= 999 Then
        ASeq = 1 ' 重置为1，格式设置后显示001
    Else
        ASeq = ASeq + 1 ' 递增
    End If
    Range("A7").Value = ASeq
    Range("A7").NumberFormat = "000" ' 保持三位数字格式
    
    ' 处理N列序列（01-99，超上限重置为01）
    NSeq = Range("N7").Value ' 获取当前N7的序列值（数字格式）
    If NSeq >= 99 Then
        NSeq = 1 ' 重置为1，格式设置后显示01
    Else
        NSeq = NSeq + 1 ' 递增
    End If
    Range("N7").Value = NSeq
    Range("N7").NumberFormat = "00" ' 保持两位数字格式
    
    ' 插入新空白行（对应需求中生成新空白行的操作）
    Rows(8).Insert Shift:=xlDown
End Sub

关键修改说明 #

• 移除原代码中无意义的Replace语句：单元格设置数字格式后，Range.Value直接返回数字值（比如显示001时，Value为1），无需额外处理
• 添加上限判断逻辑：分别检查A列序列是否达999、N列是否达99，满足条件则重置为起始值
• 补充插入新空白行的代码：匹配你需求中“生成新空白行供用户录入数据”的操作，可根据实际场景调整

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