VBA循环，查找唯一值，赋值给变量，匹配另一个变量

Sub FindUniqueValue()
    Dim sourceRange As Range
    Dim uniqueValue As Variant
    Dim targetVariable As Variant
    
    ' 假设数据位于A1:A10的单元格范围内
    Set sourceRange = Range("A1:A10")
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 检查当前单元格的值是否已经存在于目标变量中
        If IsEmpty(targetVariable) Then
            ' 如果目标变量为空，则将当前单元格的值赋值给目标变量
            targetVariable = cell.Value
        ElseIf cell.Value <> targetVariable Then
            ' 如果当前单元格的值与目标变量不相等，则将当前单元格的值赋值给唯一值变量
            uniqueValue = cell.Value
            Exit For ' 找到唯一值后退出循环
        End If
    Next cell
    
    ' 输出唯一值
    MsgBox "唯一值为: " & uniqueValue
End Sub