怎样使用VBA引用区域唯一值？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Function OnlyValue(rng As Range, i As Integer) As String

    On Error Resume Next
    Dim cc As New Collection, cell As Range
    For Each cell In rng
    cc.Add cell.Value, CStr(cell.Value)
    Next cell
    OnlyValue=cc(i)
End Function

5、在单元格F3中输入公式“=OnlyValue($B$3:$B$12,ROW(A1))”，然后下拉至F12，结果如图