Excel技术问询：按单元格数值扩展单行并生成连续数值序列

嘿，这个需求我太熟了！之前帮好几个朋友解决过，完全不用再手动折腾行，给你三个靠谱的自动化方案，按需选就行：

方法一：Power Query（无代码，首推） #

这是Excel自带的可视化工具，操作简单还不容易出错：

• 选中你的数据区域（一定要包含参考列的表头哦）
• 点击「数据」选项卡 → 「从表格/区域」，弹出对话框后勾选「我的表格有标题」，进入Power Query编辑器
• 在编辑器里选中你的参考列（比如叫「参考值」）
• 切换到「添加列」选项卡，点击「自定义列」，输入公式：{1..[参考值]，点击确定后会生成一个包含序列的列表列
• 选中这个新的列表列，点击「转换」选项卡 → 「展开到新行」，列表里的每个数字都会自动变成单独的行
• 最后点击「关闭并上载」，Excel就会自动生成你要的结果表格啦

方法二：VBA宏（适合频繁批量操作） #

如果需要反复做这个任务，写个宏一键搞定最高效：

1. 按Alt+F11打开VBA编辑器
2. 右键点击左侧的目标工作表名称，选择「插入」→「模块」
3. 粘贴下面的代码，根据你的实际列号/工作表名修改参数：

Sub GenerateNumberSequence()
    Dim ws As Worksheet
    Dim lastRefRow As Long, i As Long, seqNum As Long
    Dim outputRow As Long
    
    ' 修改这里为你的目标工作表名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 假设参考列是A列，获取该列最后一行的行号
    lastRefRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    outputRow = 2 ' 假设表头在第1行，从第2行开始输出序列
    
    For i = 2 To lastRefRow
        Dim refValue As Integer
        refValue = ws.Cells(i, "A").Value
        ' 生成1到参考值的序列，写入B列
        For seqNum = 1 To refValue
            ws.Cells(outputRow, "B").Value = seqNum
            outputRow = outputRow + 1
        Next seqNum
    Next i
End Sub

4. 回到Excel，按Alt+F8选择宏名，点击「执行」就完成了

方法三：数组公式（适合轻量临时需求） #

如果不想用工具或宏，用数组公式也能快速实现：

• 假设参考列在A2:A4，要在B列生成序列，在B2输入公式：
  =IFERROR(SMALL(IF(ROW($1:$1000)<=TRANSPOSE(A$2:A$4),ROW($1:$1000)),ROW()-1),"")
• 旧版Excel需要按Ctrl+Shift+Enter触发数组公式，新版Excel直接回车即可，然后下拉公式直到出现空值（注意$1:$1000是假设最大参考值不超过1000，可根据实际情况调整范围）

内容的提问来源于stack exchange，提问作者S.Dorrah