Excel批量拆分合并的单元格并填充内容

解决的问题

在 Excel 中，批量快速将合并单元格的内容填充到合并前的所有单个单元格内

方法 1：手动操作

1. 取消合并单元格：

• 选中合并的单元格（例如 A2:A27）。
• 在“开始”选项卡中，点击 “合并后居中” 按钮以取消合并单元格。

2. 填充内容：

• 保持选中状态，再编辑栏输入 =A2 或者手动输入单元格原来的值（例如“xxx”）。
• 按下 Ctrl + Enter，会将内容自动填充到所有选中单元格中。

方法 2：使用 VBA 宏（适合批量操作），记得备份好源文件

1. 启用开发工具：

• 在 Excel 中按 Alt + F11 打开 VBA 编辑器。
• 点击 “插入” > “模块”，然后粘贴以下代码：

Sub FillMergedCells()
    Dim rng As Range
    Dim cell As Range
    
    ' 获取当前选中的区域
    Set rng = Selection
    
    ' 遍历每个单元格区域
    For Each cell In rng
        If cell.MergeCells Then
            ' 如果是合并单元格，将其内容填充到所有合并区域
            With cell.MergeArea
                .UnMerge
                .Value = cell.Value
            End With
        End If
    Next cell
    
    MsgBox "填充完成！"
End Sub

2. 运行宏：

• 回到 Excel 按 Alt + F8，选择 FillMergedCells 并点击 “运行”。
• 选中的合并单元格内容会被填充到原区域中的每个单元格。
• 完成操作后可以直接 Alt + F11 选中模块后，右键移除模块。

3. 图示

方法 3：利用公式（适合简单场景）

1. 在 B2 中输入公式（假设 A2 是合并单元格的起始单元格）
   =IF(A2<>"", A2, B1)
2. 下拉填充至 B27。
3. 复制公式生成的新列数据，右键选择性粘贴为值覆盖到 A 列。