【エクセルVBA】連続した重複を発見し、列の一番端にフラグをたてるマクロ

こんにちは！シバマメです。

今日は、連続して同じ内容を発見し列の一番右にフラグをたてる（１を記入）するマクロを紹介します。

どの列の重複を探したいのか、何列目かを指定して重複を探すことができます。

１でフラグがたっていれば、後から並び替えや削除もらくらくですね。

※ただし注意が必要です。

　連続した重複しか探せないので、並べ替えをしてから使用してください。

　近日中に、並び替えして重複を探すバージョンも公開予定です！

　お手間かけてすみません(T_T)

使い方

使い方

1

下記のコードを個人用マクロブックに保存しましょう。個人用マクロブック作成方法

2

対象のエクセル表を開いた状態でマクロを実行します。 F5 or ▶ボタンで実行

3

実行すると、↑のように重複を探す列をきかれるので、数字で列を記入しましょう。　A列なら数字の１です。
すると、一番右列に１が立ちます。あとは削除など自由自在ですね。　この例は短いデータですが、数百行とかあると便利です。

Sub chouhuku()
 
    Dim i As Long
   
    Dim Target As Long
    Target = InputBox(&quot;何列目の重複を確認しますか？&quot;)
   
    Dim maxRow As Long
    Dim maxCol As Long
    maxRow = Cells(Rows.Count, 1).End(xlUp).Row
    maxCol = Cells(1, Columns.Count).End(xlToLeft).Column
 
    For i = 1 To maxRow
        If Cells(i, Target).Value = Cells(i + 1, Target).Value Then
            Cells(i, maxCol + 1).Value = 1
            Cells(i + 1, maxCol + 1).Value = 1
        End If
    Next i
 
End Sub