如何取消合併單元格並在Excel中填充重複值？

如果您有一個包含大量合併單元格的工作表，現在您需要取消合併它們並自動填寫合併單元格中的原始值，如下面的屏幕截圖所示。 您如何快速處理此任務？

使用“轉到特殊位置”命令取消合併單元格並填充重複數據

取消合併單元格並使用VBA代碼填充重複數據

一鍵解除單元格並填充重複數據

使用“轉到特殊位置”命令取消合併單元格並填充重複數據

隨著 去特別 命令，您可以取消合併單元格並填寫值。 但是此方法有些麻煩，請按照以下步驟操作：

1。 選擇已合併單元格的列。

2。 點擊 主頁 > 合併與中心 > 解除單元格。 看截圖：

3。 並且合併的單元格已被取消合併，只有第一個單元格將被原始值填充。 然後再次選擇範圍。

4。 然後點擊 主頁 > 查找和選擇 > 去特別。 在 去特別 對話框中選擇 空白 選項。 看截圖：

5。 然後點擊 OK，範圍內的所有空白單元格均已選中。 然後輸入 = 並按下 Up 鍵盤上的箭頭鍵。 看截圖：

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. 點擊 OK，則合併後的單元格將被取消合併，並自動向下填充原始合併後的值。

一鍵解除單元格並填充重複數據

隨著 解除單元格 的效用 Excel的Kutools，您只需單擊一下即可取消合併單元格並填充重複數據，這種方法非常簡單方便。

安裝後 Excel的Kutools，您可以執行以下操作：

1。 選擇要合併的列並填寫數據。

2。 點擊 庫工具 > 合併與拆分 > 取消單元格和填充值，請參見屏幕截圖：

3。 並且合併的單元格已被合併並立即用重複的值填充。 查看屏幕截圖：

使用Kutools for Excel取消單元格並填充重複數據

相關文章：

在Excel中合併具有相同數據的相鄰行