首页 > 代码库 > 利用VBA查找excel中一行某列第一次不为空与最后一列不为空的列数
利用VBA查找excel中一行某列第一次不为空与最后一列不为空的列数
昨日同事有需求,想知道每个商品第一次销售的月份,以及最后一次销售的月份. 本想通过什么excel函数来解决,但是找了半天也没找到合适的,最后还是通过VBA来解决吧.
使用方法:
Excel工具-宏-Visual Basic编辑器 在左侧栏中点右键，
插入-模块
然后输入：
1 Function Last0(ByVal Int_Row As Integer) As Integer 2 Last0 = 14 3 Do While Cells(Int_Row, Last0) = "" And Last0 >= 3 4 Last0 = Last0 - 1 5 Loop 6 7 End Function 8 9 ‘这里需要注意的是 函数的返回值貌似是 变量必须与方法名一致 很奇葩的要求....10 Function Frist0(ByVal Int_Row As Integer) As Integer11 Frist0 = 312 Do While Cells(Int_Row, Frist0) = "" And Frist0 <= 25513 Frist0 = Frist0 + 114 Loop15 If Frist0 > 255 Then16 Frist0 = 888817 End If18 End Function
然后在单位格中可以直接引用
例如：=Frist0(4) 返回值即为4行中第一个不为0的单元格列号，
如果函数返回8888，表明这行没有数据。
利用VBA查找excel中一行某列第一次不为空与最后一列不为空的列数
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。