Excelでセルの結合を解除し、重複する値で埋めるにはどうすればよいですか？

多数の結合されたセルを含むワークシートがあり、それらを結合解除して、結合セルからの元の値を自動的に下方向に埋めたい場合（次のスクリーンショット参照）、このタスクを迅速に処理するにはどうすればよいですか？

「ジャンプ」コマンドを使用してセルの結合を解除し、重複データで埋める

VBAコードを使用してセルの結合を解除し、重複データで埋める

ワンクリックでセルの結合を解除し、重複データで埋める

「ジャンプ」コマンドを使用してセルの結合を解除し、重複データで埋める

「ジャンプ」コマンドを使用すると、セルの結合を解除し、値を下方向に埋めることができます。ただし、この方法はやや面倒です。以下の手順に従ってください：

1. 結合されたセルを含む列を選択します。

2. [ホーム] → [結合して中央揃え] → [セルの結合を解除] をクリックします。スクリーンショットをご覧ください：

3. そして、結合されたセルが解除され、最初のセルのみが元の値で埋められます。その後、再度範囲を選択します。

4. 次に、[ホーム] → [検索と選択] → [ジャンプ] をクリックします。「ジャンプ」ダイアログボックスで、 「空白セル」オプションを選択します。スクリーンショットをご覧ください：

5. 「 OK」をクリックすると、範囲内のすべての空白セルが選択されます。次に、「=」を入力し、キーボードの 上矢印キーを押します。スクリーンショットをご覧ください：

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」をクリックすると、結合されたセルが解除され、元の結合値が自動的に入力されます。

ワンクリックでセルの結合を解除し、重複データで埋める

Kutools for Excel の「セルの結合解除」機能を使用すると、ワンクリックでセルの結合を解除し、重複データで埋めることができます。この方法は非常にシンプルで便利です。

Kutools for Excel をインストール後、以下のように操作できます：

1. 結合を解除し、データを下方向に埋めたい列を選択します。

2. [Kutools] → [結合と分割] → [セルの結合解除と値の入力] をクリックします。スクリーンショットをご覧ください：

3. これで、結合されたセルが解除され、重複する値で一括して埋められます。スクリーンショットをご覧ください：

Kutools for Excel を使用してセルの結合を解除し、重複データで埋める

関連記事：

Excelで同じデータを持つ隣接する行を結合する