如何取消合并單元格并在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中合并具有相同數據的相鄰行