Excelで重複行を削除するマクロ

---

このマクロでできること .

整列されたデータの重複行を調べます。
そのまま使うと2列目(b列)のデータを調べ、重複行には10列目(j列)に重複という文字列を書き込みます

調べる列を変更したい場合にはCall 重複チェッカー("b", 1,"j")のbの部分を対応する列に書き換えてください
調べ始める行を変更する場合には1の部分に調べ始める行数を入れてください。

重複行をいきなり消してしまっても良い場合にはCall 重複チェッカー("b", 1,"j")の"j"の部分を"消"に
色を付けたい場合には"色"にすると黄色くなります。
また""の中身が列に利用可能なアルファベットの場合には対応する列に「重複」という文字を書き込みます。
それ以外の物を書いた場合にはエラーでとまってしまいます。

使い方 .

マクロ本体をツール→マクロ→VisualBasicEditorに貼り付ける
(できることを読んで適宜書き換えてください)
データをソートする
Alt+F8でマクロ一覧が現れるので重複チェッカーを呼び出すを実行する

本体 .

 Sub 重複チェッカーを呼び出す()
   Call 重複チェッカー("b", 1, "j")
 End Sub
 Sub 重複チェッカー(調べる列 As String, 調べ始める行 As Integer, すること As String)
   現在行 = 調べ始める行
   記憶データ = False
   While Not 記憶データ = ""
    現在行データ = Range(調べる列 & 現在行).Value
      If 記憶データ = 現在行データ Then
          Select Case すること
              Case "消"
              '行を空白にする
              Range(現在行 & ":" & 現在行).Select: Selection.ClearContents
              Case "色"
              '色をつける
              Range(現在行 & ":" & 現在行).Select: With Selection.Interior: .ColorIndex = 6: .Pattern = xlSolid: End With
               Case Else
               '10列目(j列)に値を入れる
               Range(すること & 現在行).Value = "重複"
           End Select
       Else
           記憶データ = Range(調べる列 & 現在行).Value
       End If
       現在行 = 現在行 + 1
   Wend
 End Sub