如何在VBA中生成指定起始值和长度的序列编号？

核心实现代码 #

直接上可运行的宏代码，包含输入验证、序列生成和结果输出：

Sub GenerateIDSequence()
    Dim startVal As Long, seqLength As Long
    Dim i As Long
    Dim idSequence As String
    
    ' 获取用户输入的起始值和序列长度
    On Error Resume Next
    startVal = Application.InputBox("请输入ID起始值：", "起始值设置", Type:=1)
    If Err.Number <> 0 Then Exit Sub ' 用户取消或输入非数字
    
    seqLength = Application.InputBox("请输入序列长度：", "序列长度设置", Type:=1)
    If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
    
    ' 验证长度合法性
    If seqLength < 1 Then
        MsgBox "序列长度必须大于0", vbExclamation
        Exit Sub
    End If
    
    ' 生成ID序列字符串
    idSequence = CStr(startVal)
    For i = 1 To seqLength - 1
        idSequence = idSequence & ", " & CStr(startVal + i)
    Next i
    
    ' 输出结果：可选显示在消息框或写入单元格
    MsgBox "生成的ID序列：" & vbCrLf & idSequence, vbInformation
    
    ' 可选：将序列写入当前工作表的A列（从A1开始），对应SEQUENCE函数效果
    ' Range("A1:A" & seqLength).Value = Application.Transpose(Evaluate("SEQUENCE(" & seqLength & ",1," & startVal & ",1)"))
End Sub

关键说明 #

• 输入验证：用Application.InputBox的Type:=1强制用户输入数字，同时捕获取消操作的情况
• 序列生成：通过循环拼接字符串快速生成可展示的序列；如果需要批量写入单元格，直接调用Excel的SEQUENCE函数（注释代码）更高效
• 输出适配：默认用消息框展示结果，取消注释后可直接将序列写入工作表，完全对应你提到的SEQUENCE(11,1,100,1)效果（若需起始值为1000000，输入该数值即可）

运行效果 #

当输入起始值100、序列长度11时，会生成100, 101, 102, ..., 110的完整连续序列。

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