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，结果如图
