如何在 Excel 中取消合并单元格并用重复值填充？

如果您的工作表中包含大量合并的单元格，而现在您需要将它们取消合并，并自动向下填充来自合并单元格的原始值（如下方截图所示）。您该如何快速处理此任务呢？

使用“定位条件”命令取消合并单元格并用重复数据填充

使用 VBA 代码取消合并单元格并用重复数据填充

一键取消合并单元格并用重复数据填充

使用“定位条件”命令取消合并单元格并用重复数据填充

通过“定位条件”命令，您可以取消合并单元格并向下填充数值。但这种方法有些麻烦，请按照以下步骤操作：

1. 选择包含合并单元格的列。

2. 点击 开始 > 合并居中 > 取消合并单元格。参见截图：

3. 合并的单元格已被取消合并，只有第一个单元格会填充原始值。然后再次选择该区域。

4. 接着点击 开始 > 查找和选择 > 定位条件。在“定位条件”对话框中，选择 空值选项。参见截图：

5. 然后点击 确定，范围内的所有空白单元格都会被选中。接着输入 = 并按键盘上的 上箭头 键。参见截图：

6. 然后按下 Ctrl + Enter 键，所有空白单元格都将填充原始合并的数据。参见截图：

使用 VBA 代码取消合并单元格并用重复数据填充

使用以下 VBA 代码，您可以快速取消合并单元格并向下填充数值。

1. 按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 插入 > 模块，并将以下宏粘贴到模块窗口中。

Sub UnMergeSameCell()
'Upadateby Extendoffice
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
    If Rng.MergeCells Then
        With Rng.MergeArea
            .UnMerge
            .Formula = Rng.Formula
        End With
    End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. 然后按 F5 键运行此代码，弹出一个对话框供您选择要操作的区域，参见截图：

4. 点击 确定，然后合并的单元格将被取消合并，并自动向下填充原始合并的值。

一键取消合并单元格并用重复数据填充

借助 Kutools for Excel 的取消合并单元格工具，您可以一键取消合并单元格并用重复数据填充，这种方法非常简单且方便。

安装 Kutools for Excel 后，您可以按以下步骤操作：

1. 选择您想要取消合并并向下填充数据的列。

2. 点击 Kutools > 合并与拆分 > 取消合并单元格并填充值，参见截图：

3. 合并的单元格立即被取消合并并用重复值填充。参见截图：

使用 Kutools for Excel 取消合并单元格并用重复数据填充

相关文章：

在 Excel 中合并具有相同数据的相邻行