怎样使用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，结果如图