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

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

在Excel中处理大量合并单元格时，手动操作往往耗时且容易出错。本文将介绍三种高效方法，帮助你快速将合并单元格的内容填充到所有单个单元格中，包括手动操作、使用VBA宏和利用公式，适合不同场景的需求。

解决的问题

在 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：利用公式（适合简单场景）

1. 在 B2 中输入公式（假设 A2 是合并单元格的起始单元格）
   =IF(A2<>"", A2, B1)

2. 下拉填充至 B27。

3. 复制公式生成的新列数据，右键选择性粘贴为值覆盖到 A 列。