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

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

如果您有一个包含大量合并单元格的工作表，现在您需要取消合并它们并自动填写合并单元格中的原始值，如下面的屏幕截图所示。 您如何快速处理此任务？

使用“转到特殊位置”命令取消合并单元格并填充重复数据

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

一键解除单元格并填充重复数据

使用“转到特殊位置”命令取消合并单元格并填充重复数据

随着 去特别 命令，您可以取消合并单元格并填写值。 但是此方法有些麻烦，请按照以下步骤操作：

1。 选择已合并单元格的列。

2。 点击 首页 > 合并与中心 > 解除单元格。 看截图：

3。 并且合并的单元格已被取消合并，只有第一个单元格将被原始值填充。 然后再次选择范围。

4。 然后点击 首页 > 查找和选择 > 去特别。 在 去特别 对话框中选择 空白 选项。 看截图：

5。 然后点击 OK，范围内的所有空白单元格均已选中。 然后输入 = 并按下 Up 键盘上的箭头键。 看截图：

6。 然后按 Ctrl + Enter 键，所有空白单元格均已填充原始合并数据。 看截图：

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

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

1。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下宏粘贴到 模块窗口。

Sub UnMergeSameCell（）Upadateby Extendoffice 将 Rng 调暗为范围，将 xCell 设置为范围 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 然后With Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

3。 然后按 F5 键以运行此代码，将显示一个对话框，用于选择要使用的范围，请参见屏幕截图：

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

一键解除单元格并填充重复数据

随着 解除单元格 实用程序 Kutools for Excel，只需单击一下，即可取消合并单元格并填充重复数据，此方法非常简单方便。

Kutools for Excel : 带有300多个便捷的Excel加载项，可以在30天内免费试用. 

安装后 Kutools for Excel，您可以执行以下操作：

1。 选择要合并的列并填写数据。

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

3。 并且合并的单元格已被合并并立即用重复的值填充。 查看屏幕截图：

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

相关文章：

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