求大哥大姐大叔大婶好心雷锋帮帮小弟 感激不尽!!!
没有分了如若完全达到要求 愿意 出资5元做酬劳!
统计两个数中间的空白单元格有几个!(从下往上统计)详情见附件!条件1.就是只统计倒数第一和倒数第二中间的空单元格有几个,倒数第二再往上不管多少个空和值忽略不计2.如果倒数第一没有值(空)那么计算结果也填空!3.如果只有最后一个值没有倒数第二值则填18
excel统计两个数中间的空白单元格有多少!!!VBA,编程!
答案:3 悬赏:50
解决时间 2021-11-26 13:54
- 提问者网友:✐ۖ﹏ℳ๓北风
- 2021-11-25 21:15
最佳答案
- 二级知识专家网友:开心就好
- 2021-11-25 22:11
代码如下:
Option Explicit
Sub YgB()
Dim i, j, k
For j = 2 To 11 '这行的11可能你需要修改,是需要填数的列数
If Cells(20, j) <> "" Then
If Cells(19, j) <> "" Then
k = 0
Else
i = Cells(20, j).End(xlUp).Row
k = 20 - i - 1
End If
Cells(21, j) = k
End If
Next j
End Sub
Option Explicit
Sub YgB()
Dim i, j, k
For j = 2 To 11 '这行的11可能你需要修改,是需要填数的列数
If Cells(20, j) <> "" Then
If Cells(19, j) <> "" Then
k = 0
Else
i = Cells(20, j).End(xlUp).Row
k = 20 - i - 1
End If
Cells(21, j) = k
End If
Next j
End Sub
全部回答
- 1楼网友:哭不代表软弱
- 2021-11-25 23:13
假设你要查找的空白单元格在b列
sub my()
dim i as long
for i = 1 to [a65536].end(xlup).row
if cells(i, 2) = "" then '这里的2就是你的列数,可以自己替换
rows(i & ":" & i).delete shift:=xlup
end if
next
end sub
- 2楼网友:猖狂的痴情人
- 2021-11-25 22:33
把数据文件发给我吧,试帮你 解决!
(联系方式,点我的名字,在基本资 料中查找)
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯