VBA实用小程序68：判断指定单元格区域中是否存在重复值

Function bIfUnique(rng As Range) As Boolean
    Dim oDic As Object
    Dim rngCell As Range
 
    ‘绑定Dictionary对象
    Set oDic =CreateObject("Scripting.Dictionary")
   
   ‘遍历指定单元格区域中的单元格
    For EachrngCell In rng
        On Error Resume Next
        oDic.AddrngCell.Text, rngCell.Text
    Next rngCell
 
    '如果字典元素的数量不等于
    '单元格区域中单元格的数量
    '表明存在重复值,返回True
    '否则不存在重复值,返回False
    If oDic.Count <>rng.Cells.Count Then
        bIfUnique = True
    Else
        bIfUnique = False
    End If
End Function

Sub test()
    If bIfUnique(Range("B2:C4")) Then
        MsgBox "有重复值"
    Else
        MsgBox "没有重复值"
    End If
End Sub