excel如何判断一列不重复数字中是否存在某一数字

ALT+F11,在VBA窗口中点插入,模块.在模块代码窗格中粘贴下面的代码,即可使用该自定义函数.使用方法详见附件.
下面是VBA写的自定义函数代码：
Function mm(ByVal rg As Range) As String
Dim d As Object, erow As Long
Set d = CreateObject("scripting.dictionary")
erow = Cells(Rows.Count, "A").End(3).Row
For i = rg.Row + 1 To erow
    If d.Count = 5 Then Exit For
    d(Cells(i, "A").Value) = ""
Next
ary = d.keys
For i = LBound(ary) To UBound(ary)
    If rg = ary(i) Then
        mm = "含有"
        GoTo nover
    End If
Next
mm = "没有"
nover:
End Function