エクセルVBAで重複入力の排除

質問

すでに入力規則はリストで使用しております。
そのためVBAで重複入力の排除を行おうと思います。
一応以下のコードでできたのですが、もっと良い方法があったら教えてください。
お願いいたします。

Private Sub Worksheet_Change(ByVal Target As Range)
　　 Dim myDic As Object
　　 Dim c As Variant, varData As Variant
　　 Dim i As Long
　　 If Application.Intersect(Target, Range("A1:A50")) Is Nothing Then Exit Sub
　　 Set myDic = CreateObject("Scripting.Dictionary")
　　 varData = Range("A1:A50").Value
　　 For Each c In varData
　　　　 If Not c = Empty Then
　　　　　　 i = i + 1
　　　　　　 If Not myDic.Exists(c) Then
　　　　　　　　 myDic.Add c, Null
　　　　　　 End If
　　　　 End If
　　 Next
　　 If myDic.Count < i Then
　　　　MsgBox Target & " は重複！"
　　　　Application.EnableEvents = False
　　　　Application.Undo
　　　　Application.EnableEvents = True
　　 End If
End Sub

回答No.1

mu2011 · ベストアンサー

一例です。

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
If Target.Count <> 1 Then End
If Intersect(Target, Range("A1:A50")) Is Nothing Then End
If .CountIf(Range("a1:a50"), Target) > 1 Then
MsgBox Target & " は重複！", vbCritical
.EnableEvents = False
.Undo
.EnableEvents = True
End If
End With
End Sub

お礼

さっそくありがとうございます
そうか、VBAでもCountifが使えたんですね！
こっちのほうがいいですね、ありがとうございます。