MS Excel：如何为不同大小的合并单元格下拉填充递增公式

方法一：公式+定位条件批量填充 #

这是无需宏的快捷方案，适配任意大小的合并单元格：

1. 选中首个合并单元格下方所有需要填充的合并单元格区域（比如从A11到最后一个合并单元格）
2. 按下F5打开定位窗口，点击「定位条件」，选择「空值」后确定
3. 在编辑栏输入公式：=INDEX(A:A,MAX(ROW(A$1:A1)))+1
4. 按下Ctrl+Enter，所有选中的空合并单元格会自动填充递增值

公式说明：MAX(ROW(A$1:A1))会定位到当前单元格上方最后一个有值的单元格行号，INDEX提取该值后加1，完美适配不同行数的合并单元格。

方法二：VBA宏批量处理（适合大量合并单元格） #

如果需要一次性批量赋值，可使用VBA宏：

1. 按下Alt+F11打开VBA编辑器
2. 右键点击当前工作簿，选择「插入」→「模块」
3. 粘贴以下代码：

Sub FillMergedCellsIncrementally()
    Dim lastRow As Long
    Dim currentVal As Long
    Dim cell As Range
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    currentVal = Range("A1").Value ' 获取首个合并单元格的初始值
    
    For Each cell In Range("A1:A" & lastRow)
        If cell.MergeCells Then
            If cell.Value = "" Then
                currentVal = currentVal + 1
                cell.Value = currentVal
            End If
        End If
    Next cell
End Sub

4. 点击运行按钮，宏会自动遍历A列所有合并单元格，为空的填充递增值

注意事项 #

• 公式方法支持自动更新：如果修改首个单元格的初始值，后续所有单元格的值会自动同步变化
• VBA方法为一次性赋值，后续修改初始值不会自动更新，适合固定值场景

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