如何用Excel实现从A列新合并单元格起始的不同长度重复数字序列生成

方案1：公式实现（无需启用宏） #

• 前置操作：先提取A列所有合并单元格的起始行
  1. 新增辅助列B，B1单元格输入公式=IF(CELL("row",A1)=CELL("row",A2),"",ROW())，下拉覆盖所有数据行，非空值即为合并单元格的起始行号
  2. 新增辅助列D，按顺序填写每个合并单元格对应要生成的序列长度（取值1-4，对应第一个合并单元长度、第二个合并单元长度...）
• 序列生成公式：在要输出序列的列（以C列为例）C1单元格输入以下公式，下拉即可
  =IF(ROW()-MAX($B$1:B1)+1>INDEX($D:$D,COUNTA($B$1:B1)),"",ROW()-MAX($B$1:B1)+1)
• 补充说明：如果需要序列长度按1→2→3→4→1循环，可删除辅助列D，将公式替换为=MOD(ROW()-MAX($B$1:B1),4)+1

方案2：VBA实现（数千行批量处理效率更高） #

操作步骤：

• 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称→插入→模块
• 将以下代码粘贴到模块中，按F5运行即可

Sub 生成指定长度序列()
    Dim ws As Worksheet
    Dim mergeArea As Range
    Dim startRow As Long, i As Long, seqLen As Integer, seqCycle As Integer
    Set ws = ActiveSheet ' 如需指定工作表可修改为 Set ws = Sheets("你的表名")
    seqCycle = 1 ' 循环计数初始值
    
    ' 遍历A列所有合并单元格区域
    For Each mergeArea In ws.Range("A:A").SpecialCells(xlCellTypeAllFormatConditions).MergeArea
        If mergeArea.Row = startRow Then GoTo Skip ' 跳过重复遍历同一合并区域
        startRow = mergeArea.Row
        
        ' 序列长度规则：以下两种二选一，不用的规则注释掉即可
        ' 规则1：长度按1→2→3→4循环
        seqLen = (seqCycle Mod 4)
        If seqLen = 0 Then seqLen = 4
        seqCycle = seqCycle + 1
        ' 规则2：长度1-4随机生成
        ' seqLen = Int(Rnd * 4 + 1)
        
        ' 输出序列到B列，需修改输出列可调整第二个参数，比如3对应C列
        For i = 1 To seqLen
            ws.Cells(startRow + i - 1, 2) = i
        Next i
Skip:
    Next mergeArea
End Sub

• 注意事项：运行前请备份原有数据，避免误操作覆盖内容

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