计算上下两个单元格之间有多少空单元格

6739912

求大神帮忙  计算上下两个单元格之间有多少空单元格

DevilW

MsgBox Application.CountIf([a1:b19], "")

ykqrs

1. Sub qq()
   
2. Dim rng As Range, rg, x%
   
3. On Error Resume Next
   
4. Set rng = Application.InputBox(Prompt:="选择单元格区域：", Type:=8)
   
5. For Each rg In rng
   
6. If rg = "" Then x = x + 1
   
7. Next
   
8. MsgBox x
   
9. End Sub

复制代码

ykqrs

计算上下两个单元格之间有多少空单元格.zip (15.45 KB, 下载次数: 7)

2018-8-11 10:59 上传

点击文件名下载附件

代码传不上，看附件

Chip_Kenny

1. Function zz(rng As Range)
   
2. Dim ar, n&
   
3. ar = rng.Value
   
4. For Each k In ar
   
5.     If Len(k) = 0 Then n = n + 1
   
6. Next
   
7. zz = n
   
8. End Function

复制代码

清风竹-

请看附件。

6739912

谢谢各位               

6739912

就这一问题再次求助
目前的几个方法，都是在已知两个单元格的地址，才计算出来的
如果下单元格地址不确定，也就是说已知上单元格的地址，先要判断它下面的非空单元格的地址，然后计算两者间的空单元格个数，如何写VBA代码

清风竹-

6739912 发表于 2018-8-11 17:53
就这一问题再次求助
目前的几个方法，都是在已知两个单元格的地址，才计算出来的
如果下单元格地址不确定 ...

已作了修改。

仲夏之雪

没下载附件，VBA新人，仅提供一种思路。希望对你有帮助。

Sub 计算上下两个单元格中间的空白单元格的个数()
Dim rng As Range, i As Long
i = 0
For Each rng In ActiveSheet.UsedRange
    If rng.Value = "" Then
        i = i + 1
    End If
Next rng
MsgBox i
End Sub