在Excel中查找唯一值，可以使用VBA编写一个自定义函数来实现。以下是一个示例代码：

Function FindUniqueValuesByID(id As String, rangeToSearch As Range) As Variant
    Dim cell As Range
    Dim uniqueValues As Collection
    Dim value As Variant
    
    Set uniqueValues = New Collection
    
    ' 遍历指定范围中的每个单元格
    For Each cell In rangeToSearch
        ' 检查单元格的ID是否与给定的ID相匹配
        If cell.Value = id Then
            ' 将单元格的值添加到唯一值集合中
            On Error Resume Next
            uniqueValues.Add cell.Offset(0, 1).Value, CStr(cell.Offset(0, 1).Value)
            On Error GoTo 0
        End If
    Next cell
    
    ' 将唯一值集合中的值存储到一个数组中
    ReDim uniqueArray(1 To uniqueValues.Count)
    For i = 1 To uniqueValues.Count
        uniqueArray(i) = uniqueValues(i)
    Next i
    
    ' 返回唯一值数组
    FindUniqueValuesByID = uniqueArray
End Function

使用这个函数，你可以在Excel中输入类似于=FindUniqueValuesByID("001", A2:B10)的公式，其中"001"是要查找的ID，A2:B10是要搜索的范围。这个函数将返回一个包含唯一值的数组。

请注意，此代码假设ID在A列中，唯一值在B列中。你可以根据实际情况进行修改。