Excel实现编号区间自动填充：批量生成100个单元格序列

公式法（无需编程） #

• 假设E2单元格内容为E2171251-E2171375，在E3单元格输入以下通用公式：

  ="E"&(VALUE(RIGHT(E2,LEN(E2)-FIND("-",E2)))+1)&"-E"&(VALUE(RIGHT(E2,LEN(E2)-FIND("-",E2)))+125)
  

• 输入完成后，选中E3单元格，鼠标移到单元格右下角的填充柄（小方块），按住左键下拉到E101单元格，即可生成100个连续的编号范围。

公式说明 #

• RIGHT(E2,LEN(E2)-FIND("-",E2))：提取E2中-右侧的结束数字
• 加1得到下一段的起始编号，加125得到下一段的结束编号（因为每段包含125个编号）
• 最后拼接前缀E和分隔符-，形成完整的编号范围

VBA宏法（批量生成更高效） #

如果需要一次性生成100条数据，用宏更快捷：

1. 按Alt+F11打开VBA编辑器
2. 点击菜单栏「插入」→「模块」，粘贴以下代码：

   Sub GenerateNumberRanges()
       Dim startNum As Long, endNum As Long
       Dim i As Integer
       ' 从E2提取初始范围的起始和结束数字
       startNum = Val(Mid(Range("E2").Value, 2, InStr(Range("E2").Value, "-") - 2))
       endNum = Val(Mid(Range("E2").Value, InStr(Range("E2").Value, "-") + 2))
       ' 生成100个连续范围
       For i = 1 To 100
           Range("E" & i + 2).Value = "E" & (endNum + 1) & "-E" & (endNum + 125)
           endNum = endNum + 125
       Next i
   End Sub
   

3. 按F5运行宏，E3到E101会自动填充好对应的编号范围

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