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

 时间:2024-10-12 20:37:49

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

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

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

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

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

怎样使用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

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

5、单元格数据如图14.16所示,在单元格E1中输入公式“=Exist($B$2:$C$8, ROW())”,然后下拉即可取得B2:C8区域中的非空值,以先行后列方式返回数据

怎样使用VBA引用区域中非空值
  • excel2016怎么查找字符并返回位置?
  • excel2016怎么从右边提取字符串?
  • 使用VBA快速复制工作表
  • Excel表中如何使用VBA设置单元格颜色
  • 怎样使用VBA计算已用行列数?
  • 热门搜索
    历史手抄报图片 端午节手抄报。 世界读书日手抄报内容 疫情手抄报内容怎么写 手抄报国庆节 一二年级防溺水手抄报 植树节手抄报图片大全 重阳节手抄报内容大全 祖国在我心中的手抄报 端午节手抄报第一名