求助，怎样倒序找出最近的不重复的三个一位数

加辅助列，把5个数值填写到一个单元格里，然后用COUNTIF看看哪个等于1的

倒序访问每一列数据，然后去重复值，最后结果取前三个，再倒序排。

如图：

自定义函数，代码如下：
Private Function MyNum(ByVal rng As Range, ByVal n As Integer)
Dim dic As Object, temp, arr(), i&
Set dic = CreateObject("Scripting.Dictionary")
temp = rng.Value
For i = UBound(temp) To 1 Step -1
dic(temp(i, 1)) = ""
Next
dic_keys = dic.Keys
For i = 1 To n
ReDim Preserve arr(1 To i)
arr(i) = dic_keys(n - i)
Next
MyNum = Application.Transpose(arr)
End Function

只有我不明白楼主要什么吗