怎样使用VBA引用区域中非空值？

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

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

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

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

Function Exist(Rng As Range, iNum As Integer) 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区域中的非空值，以先行后列方式返回数据