1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Function Exist(Rng As Range, iNum As Int髫潋啜缅eger) As Variant '消除空值 Application.Volatile Dim I As Integer , cell As Range Dim Arr(1 To 10000) '10000为变量上限,可以根据单元格个数修正 i=1 For Each cell In Rng If cell <> "" Then '如果单元格非空 Arr(i)=cell '将单元格值赋予变量 i=i+1 '累计变量i End If Next Exist=Arr(iNum) '将变量ARR的值赋予函数 If Exist="" Then Exist="" '可以排除单元格的零值End Function
5、单元格数据如图14.16所示,在单元格E1中输入公式“=Exist($B$2:$C$8, ROW())”,然后下拉即可取得B2:C8区域中的非空值,以先行后列方式返回数据