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 をインストール後、以下の手順に従ってKutools for Excelを操作できます。
1.結合を解除し、データを下方向に埋めたい列を選択します。
2.Kutools>結合と分割>セルの結合を解除して値を埋めるをクリックしてください(スクリーンショットを参照)。

3.これにより、結合されたセルの結合が解除され、重複する値が一括で自動入力されます。スクリーンショットをご参照ください。
![]() | ![]() | ![]() |
Kutools for Excel— 300 以上の必須ツールでExcel を強化し、作業をより迅速・簡単に。AI 機能を活用して、スマートなデータ処理と生産性の飛躍的な向上を実現します。今すぐ入手
Kutools for Excel でセルの結合を解除し、重複データで埋める
関連記事:
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得


