Excel で重複を削除するにはどうすればよいですか？ただし、空白行はそのまま保持します。

著者Sun変更日2025-07-15

Excel では、重複の削除機能を使えば、リスト内の重複値を簡単に取り除けます。ただし、リストに空白行が含まれていると、標準機能ではそれらも一緒に削除されてしまい、元のデータ構造がギャップなしに詰められてしまうことがあります。特に、空白行が論理的な区切りや書式上の目的で使われている場合には、これがよく問題になります。

重複エントリを削除しつつ、すべての空白行をそのまま保持したい場合、いくつかの効果的なアプローチがあります。これらの方法を使えば、リストをすっきり整理しながらも空白行を一切変えずに、よりプロフェッショナルなデータ管理とワークシートの視覚的構造を保つことができます。以下では、さまざまなシナリオにおけるExcel での実現方法をご紹介します。
重複と空白行を含むExcelのデータを示すスクリーンショット

重複を削除数式と重複を削除を使って空白を保持

重複を選択して強調表示を重複するセル/一意のセルを選択で実行

VBA マクロ：重複を削除するが空白行は自動的に保持

Excel 数式／高度なフィルター：空白行を保持しながら一意の値を抽出

重複を削除数式と重複を削除を使って空白を保持

重複を削除しつつ空白行を保持するには、まずヘルパー列を使って空白行を識別・マークし、その後、Excel 内蔵の「重複の削除」ツールを使用します。この組み合わせにより、一意の値を維持しながら、すべての既存の空白行をそのまま残すことができます。この方法は、ヘルパー列を可視化したまま、主に手動で行う統合的なExcel ワークフローを求める場合に最適です。

ステップ1。 隣接する列（たとえば、データが A1 から始まる場合は B1）に、次の数式を入力して空白行をマークしましょう。

=IF(LEN(TRIM(A1))=0,ROW(),"")

この数式は、セル A1 が空白またはスペースのみを含んでいるかどうかをチェックします。該当する場合はその行番号を表示し、そうでない場合はセルを空のままにします。リスト内のすべてのエントリに対応できるよう、この数式を下方向にドラッグして、すべての空白行をマークしてください。
Excelで空白行を識別するために使用される数式のスクリーンショット

注：データが複数列にまたがる場合は、参照範囲を調整してください（例：A1やB1など）。TRIM 関数を使うと、スペースだけのセルも空白として扱われます。

ステップ2。 元のデータ列と新しいヘルパー列の両方を選択し、次にデータ > 重複を削除に進みます。表示されるダイアログボックスでは、元の列（ヘルパー列ではない方）のチェックボックスのみをオンにして、ターゲットデータに基づいて重複を正確に識別できるようにしてください。
重複を削除ダイアログを示すスクリーンショット

ヒント：データ選択範囲にはヘルパー列を含めつつ、重複削除のキーとしては元のデータ列のみを使用していることを確認してください。これにより、ヘルパー列でマークされた空白行が誤って削除されるのを防げます。

ステップ3。 削除された重複する値の件数を示す通知が表示されます。「OK」をクリックして、メッセージを閉じてください。
Excelの重複を削除通知ダイアログのスクリーンショット

この時点で、リストにはすべての一意の値と既存の空白行が表示されます。ヘルパー列が不要になったら、削除してください。
重複を削除した後も空白行を保持したExcelシートのスクリーンショット

適用可能なシナリオ：この方法は、標準のExcel 機能のみを使いたい場合や、データがシンプルな場合に最適です。ただし、データが頻繁に更新される場合は完全には自動化されないため、その都度手順を繰り返す必要があります。また、重複削除後にファイルを保存して閉じると操作を元に戻せなくなるので、必ず事前にバックアップを取っておきましょう。

トラブルシューティング：空白行が引き続き削除されてしまう場合は、ヘルパー数式がすべての空白行を正しくマークしていること、およびダイアログでメイン列のみを「重複を削除」のキーとして使用していることを再度ご確認ください。

重複を選択して強調表示を重複するセル/一意のセルを選択で実行

重複するセル／一意のセルを選択ユーティリティ（提供元：Kutools for Excel）は、削除前に重複エントリを視覚的に識別するのに特に役立ちます。また、デフォルトで空白行が保持されます。この方法は、削除前に重複を手動でレビューしたい場合や、ハイライト表示して後続の処理を行いたい場合に最適です。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。 無料トライアル。。。

1.データを含む範囲（空白行を含む）を選択し、「Kutools > 選択 > 重複するセル/一意のセルを選択」をクリックします。
ExcelにおけるKutools「重複セルと一意セルを選択」メニューのスクリーンショット

2.「重複するセル/一意のセルを選択」ダイアログで、「ルール」の下にある「重複（最初の1 件を除く）」を選択します。必要に応じて、「背景色を塗りつぶす」および「フォントの色を塗りつぶす」のチェックボックスをオンにすれば、任意の色で重複セルを自動的にハイライト表示できます。
「重複セルと一意セルを選択」ダイアログのスクリーンショット

ヒント：すべての重複行を選択したい場合は、単一の列ではなく、全体のデータ範囲を選択してから、その上でユーティリティを適用してください。

3.「OK」をクリックします。重複セルまたは行が何件見つかり選択されたかを報告するダイアログが表示されるので、「OK」をクリックして閉じてください。
Kutools for Excelで重複行を選択した後の通知ダイアログのスクリーンショット

これでリスト内の重複がハイライト表示され、必要に応じて手動で簡単に削除できます。この際、空白行は一切影響を受けません。
Kutoolsを使用してExcelでハイライト表示された重複セルのスクリーンショット

メリット：より柔軟でリスクが少なく、削除前に確認できます。また、空白行はデフォルトで保持されます。このアプローチは、視覚的なコントロールを強化したい場合や、ケースごとに重複を処理する必要がある場合に特に有効です。

注：一括で重複を削除する必要がある場合は、強調表示された行の範囲を並べ替えたりフィルターしたりすることで、元のワークシートの視覚的構造を保つことができます。

Kutools for Excel— 300 以上の必須ツールでExcel を強化し、作業をより迅速・簡単に。AI 機能を活用して、スマートなデータ処理と生産性の飛躍的な向上を実現します。今すぐ入手

デモ：Kutools for Excel を使用した重複するセル/一意のセルを選択

Kutools for Excel：300 個を超える便利なツールがすぐそこへ！AI 搭載の機能で、よりスマートでスピーディーな作業をぜひお楽しみください！今すぐダウンロード！

VBA マクロ：重複を削除するが空白行は自動的に保持

重複削除を自動化しつつすべての空白行を保持する必要が頻繁にあるユーザーにとって、VBA マクロの利用は実用的な選択肢です。マクロを使えば、リストがどれほど頻繁に更新されても、ヘルパー列に頼らずワンクリックでデータをクリーンアップできます。この方法は、ワークシートの構造が一貫しており、再現性がありながらパフォーマンスと正確性を保証するソリューションをお求めの場合に最適です。

注：マクロを実行すると操作を簡単に元に戻せませんので、必ず実行前にワークシートのコピーを保存してください。

1.「開発者タブ」の「Visual Basic」に移動します。VBA エディターで「挿入」→「標準モジュール」をクリックし、新規モジュールウィンドウに以下のコードを貼り付けます。

Sub RemoveDuplicatesKeepBlankRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dict As Object
    Dim cell As Range
    Dim checkRange As Range
    Dim i As Long
    
    Set ws = ActiveSheet
    Set dict = CreateObject("Scripting.Dictionary")
    
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Set checkRange = ws.Range("A1:A" & lastRow)
    
    Application.ScreenUpdating = False
    
    For i = lastRow To 1 Step -1
        Set cell = ws.Cells(i, 1)
        
        If Trim(cell.Value) = "" Then
            ' Blank row, do nothing and keep row
        Else
            If dict.Exists(cell.Value) Then
                cell.EntireRow.Delete
            Else
                dict.Add cell.Value, True
            End If
        End If
    Next i
    
    Application.ScreenUpdating = True
End Sub

2.コードを実行するには、実行ボタンをクリックするか、モジュールが選択されている状態でF5キーを押してください。マクロは即座に最初の列（A 列）をスキャンし、重複する値を削除しながら、既存のすべての空白行を元の位置にそのまま保持します。

動作の仕組み：マクロは指定された列を下から上に向かってループ処理し、既存の値を削除せずにすべての空白行を保持します。さらに、最後の非空白セルを自動で特定することで、さまざまな長さのリストにも柔軟に対応します。

パラメーターとヒント：

データが別の列にある場合は、Cells(i,1)を該当する列番号に変更してください（例：B 列なら2、C 列なら3）。
マクロは最後の行から上方向に処理を開始するため、削除中に発生する行のずれが処理を妨げることはありません。
スペースのみを含むセルも空白として扱われます。本当に空のセルだけを正確に識別したい場合は、cell.Value = ""の代わりにTrim(cell.Value) = ""をご使用ください。

トラブルシューティング：マクロが期待通りに動作しない場合は、結合されたセル、非表示の行、または対象列内に存在する予期しないデータ型を確認してください。

最適な用途：繰り返しのクリーンアップ作業、大規模データセットの処理、または自動化ワークフローの一環としてマクロを使用する場合。

Excel 数式／高度なフィルター：空白行を保持しながら一意の値を抽出

元データから一意なリストを抽出しつつ、空白行の位置をそのまま維持したい場合は、条件付き数式を活用した高度なフィルター機能を使うか、Excel の数式を巧みに駆使して新しいリストを作成できます。これは特に、空白行を含む元のレイアウトを尊重しながら、レポート作成やさらなる分析のために重複を除いたリストを別途作成したい場合に役立ちます。

次の数式を使えば、空白行を元の位置に残したまま、一意な値のリストを効率的に作成できます。

1。新しい列（たとえば B1）に、次の数式を入力してください（元データが A1:A100 にあると仮定します）：

=IF(TRIM(A1)="","",IF(COUNTIF(A$1:A1,A1)=1,A1,""))

2。この数式をデータの全行に下方向へコピーしてください。一意な項目は元の位置に表示され、重複する項目はそれ以降すべて空白として表示されます。また、元々空白だった行も引き続き空白のままになります。

注意事項：一意性に影響を与える可能性のある非表示の文字や前後のスペースがないか、必ず確認してください。TRIM 関数を使えば、こうした問題を簡単に防げます。旧バージョンのExcel では、この方法を調整するか、ヘルパー列を使って手動でフィルターをかける必要があります。

こんな方におすすめ：新しいレポートや並列表示のリストを作成したい方、またはさらに処理しやすいクリーンなデータを準備したい方にぴったりです。VBA やアドインを使わず、数式だけで対応したい方にも最適です。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべての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 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。