エクセルのデータ整形で重複した行を削除する方法

エクセル

2024.02.142024.03.20

あなたはエクセルのデータを整形するときに、重複した行を一気に削除できたら便利なのにと思ったことはありませんか？

エクセルのマクロを使えば、ボタン一つで重複した行を一気に削除できます。

今回は「エクセルのデータ整形で重複した行を削除する方法」を紹介します。

エクセルのデータ整形で重複した行を削除する方法
まとめ

エクセルのデータ整形で重複した行を削除する方法

エクセルのデータ整形で重複した行を削除する方法です。

下の赤枠、緑枠が重複になっていますので、これを消していきます。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

２．「新規作成」をクリック

３．コード入力画面が開く

４．コードを入力

コードを入力します。

選択範囲の行の重複をチェックして、重複していたら行を削除する、という意味です。

赤枠部のコードです。

   Dim 対象範囲 As Range
    Dim 行 As Range
    Dim チェック範囲 As Range
    Dim 対象行 As String
    Dim 重複 As Boolean
    
    ' 選択範囲を取得
    Set 対象範囲 = Selection
    
    ' 選択範囲が空でない場合のみ実行
    If Not 対象範囲 Is Nothing Then
        ' 各行ごとに重複をチェック
        For Each 行 In 対象範囲.Rows
            対象行 = ""
            重複 = False
            
            ' 行の各セルの値を連結
            For Each チェック範囲 In 行.Columns
                対象行 = 対象行 & CStr(チェック範囲.Value)
            Next チェック範囲
            
            ' 同じ行が既に出現していたら重複と判定
            For Each チェック行 In 対象範囲.Rows
                If 行.Address <> チェック行.Address Then
                    チェック行値 = ""
                    For Each チェック範囲 In チェック行.Columns
                        チェック行値 = チェック行値 & CStr(チェック範囲.Value)
                    Next チェック範囲
                    If 対象行 = チェック行値 Then
                        重複 = True
                        Exit For
                    End If
                End If
            Next チェック行
            
            ' 重複があれば行を削除
            If 重複 Then
                行.Delete
            End If
        Next 行
    End If

コードを入力したら、コードの入力画面を閉じて下さい。

５．ボタンができた　→範囲を選択　→ボタンをクリック

ボタンができました。

範囲を選択して、ボタンをクリックします。