1. 遍历当前活动工作表 (ActiveSheet) 的所有单元格。

2. 检查每个单元格是否为合并单元格的一部分。

3. 如果是，则获取该合并区域。

4. 记录下该合并区域左上角单元格的值。

5. 取消该区域的合并状态。

6. 将记录下的值填充到刚刚取消合并后产生的所有（原为空白的）单元格中。

7. 代码包含详细注释，方便理解。

1. 打开你的 Excel 文件。

2. 备份！（重要）： 在运行任何宏之前，强烈建议先备份你的原始 Excel 文件，以防万一出现意外情况。

3. 打开 VBA 编辑器： 按下 Alt + F11 快捷键。

4. 插入模块： 在 VBA 编辑器窗口中，点击菜单栏的 插入(I) -> 模块(M)。这会在左侧的“工程”窗口中添加一个新的“模块”文件夹和“模块1”。

5. 粘贴代码： 将上面提供的 VBA 代码完整地复制并粘贴到右侧的代码编辑区域（那个大的空白窗口）。

6. 运行宏：
• 确保你想要处理的工作表是当前活动的工作表（也就是你正在查看的那个表）。
• 回到 VBA 编辑器窗口。
• 将光标放在 Sub UnmergeAndFillCells() 和 End Sub 之间的任意位置。
• 点击工具栏上的“运行”按钮（一个绿色的三角形 ▶），或者按 F5 键。

7. 等待执行： 宏会开始运行。如果数据量很大，可能需要一点时间。完成后会弹出一个消息框提示“处理完成！”以及处理了多少个合并区域。

8. 检查结果： 回到你的 Excel 工作表，检查合并单元格是否已按预期取消合并并填充了值。

• Option Explicit: 要求你必须声明所有使用的变量，有助于减少因拼写错误等引起的 bug。

• Dim ... As ...: 声明变量及其类型。

• Set ws = ActiveSheet: 将变量 ws 指向当前打开并显示的工作表。

• Set targetRange = ws.UsedRange: 定义要处理的范围为当前工作表中包含数据或格式的实际区域。

• Application.ScreenUpdating = False/True: 关闭/恢复屏幕刷新，可以显著提高宏的运行速度，尤其是在处理大量单元格时。

• For Each cell In targetRange: 遍历 targetRange 中的每一个单元格。

• cell.MergeCells: 检查 cell 是否位于一个合并区域内，返回 True 或 False。

• cell.MergeArea: 如果 cell.MergeCells 为 True，则返回代表整个合并区域的 Range 对象。

• mergedArea.Cells(1, 1).Value2: 获取 mergedArea 这个范围中第一行第一列单元格的值。.Value2 通常是获取单元格原始值的更好选择。

• mergedArea.UnMerge: 取消 mergedArea 这个范围的合并状态。

• ws.Range(mergedAddress).Value = fillValue: 将 fillValue 这个值赋给由 mergedAddress 字符串定义的单元格范围。因为 UnMerge 后 mergedArea 对象可能不再代表原始的完整区域，所以使用地址重新获取范围更可靠。

• MsgBox "...", vbInformation: 显示一个信息提示框给用户。

温馨提示

也可以加入我们的知识星球，目前筹建期，免费加入！我们会在这里分享很多重要的资料和精选讯息！