Excel 重複したセルの行ごとクリアするVBA

Question

お世話になります。
下記シートのA列に重複したセルがあった場合、そのセルの行ごと削除したいのですがどのようなVBAにしたら良いでしょうか。

A	B	C
101	えんぴつ	500円
105	ボールペン	800円
109	はさみ	1200円
101	えんぴつB	700円

下記VBAだとエラーメッセージが出たあと重複したセルのみクリアされます。
セルのみではなく行ごとクリアするにはどのように変えれば良いのでしょうか。
よろしくお願い致します。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
With Application
Set Target = Intersect(Target, Range("A1:A4"))
If Target Is Nothing Then End
For Each r In Target
If .CountIf(Range("A1:A4"), r) > 1 Then
MsgBox "商品番号が重複しています。", vbCritical
.EnableEvents = False
r.ClearContents
.EnableEvents = True
End If
Next
End With
End Sub

Answer 1

' r.ClearContents これを下記のコードに変更
r.EntireRow.Delete

上記で行削除になります。

ただし、イベントが Worksheet_Change でいいのでしょうか。なんか、使いづらそうです。

Comments

[tkyk.]

hatena19さん
お世話になります。
ありがとうございます。
問題なく出来ました！
ちなみにWorksheet_Change以外だと何が良いでしょうか？
それと後ほど違う質問も立てますのでもし良ければご教授いただければ幸いです。

[hatena19]

まあ、好みの問題かも知れませんが、セルに入力した直後にいきなり削除してしまうと、うっかりミスで重複データを入力してしまった場合、せっかく入力した行データをすべて消してしまうのはどうかなと思いました。
自分が設計するなら、重複データは背景色を変更するとか、右端の列に「重複」と表示するとか、でユーザーに警告するだけにします。ユーザーはそれを見てどちらが不要か判断して削除するかデータを修正するようにします。
もし、重複を修正せずに保存しようとした場合、メッセージを出して修正するように警告します。

[tkyk.]

hatena19さん
ご意見ありがとうございます！
とても参考になります。
このシートは別のシートから行ごとコピペで転記するため重複に関してはいきなり削除で大丈夫です。
ただ、今のところなので運用が変更になった場合、背景色を変更するようにしようかと思います。
すみません。
私がどのように運用するのか記載しておりませんでした。