用VBA判断区域中空白单元格的个数

weide_yang

例如在B2:B10区域中有N个单元格没有数字，其它单元格有1，2，3，4，5....等数字，请教如何用代码来表示：如果这个区域中有1个空白单元格，那么....    先谢老师了！

ykcbf1100

没有附件，那只能这样表示一下了。

fengbao008

=COUNTBLANK(b2:b10)

weide_yang

谢谢ykcbf1100老师赐教！想再请教：如果把b2:b10改成B列中全部有数据的单元格，把有空白单元格的个数条件改成2，以下代码应如何修改？谢谢！
Sub kky()
    Dim arr
    arr = [b2:b10]
    For i = 1 To UBound(arr)
        If Val(arr(i, 1)) = 0 Then
            MsgBox ("kkk")
        End If
    Next
End Sub

ykcbf1100

weide_yang 发表于 2023-1-31 11:08
谢谢ykcbf1100老师赐教！想再请教：如果把b2:b10改成B列中全部有数据的单元格，把有空白单元格的个数条件改 ...

空白单元格的条件个数改成2，不太明白啥意思？是指范围内连续二个单元格都是空白吗?

准提部林

Sub TEST()
With Range("B2:B20")
     On Error Resume Next
     v& = .SpecialCells(xlCellTypeBlanks).Count
     On Error GoTo 0
     MsgBox v
End With
End Sub

ykcbf1100

连续二个空白单元格，则

1. Sub kky()
   
2.     Dim arr
   
3.     r = Cells(Rows.Count, "b").End(xlUp).Row
   
4.     arr = Range("b2:b" & r)
   
5.     For i = 1 To UBound(arr) - 1
   
6.         If Val(arr(i, 1)) = 0 Then
   
7.             If Val(arr(i + 1, 1)) = 0 Then
   
8.                 MsgBox ("kkk")
   
9.             End If
   
10.         End If
    
11.     Next
    
12. End Sub

复制代码

weide_yang

老师您好！
空白单元格的条件个数改成2，意思是：只要范围中出现的是2个空白单元格，不管这2个空白单元格是否连续。

ykcbf1100

weide_yang 发表于 2023-1-31 11:35
老师您好！
空白单元格的条件个数改成2，意思是：只要范围中出现的是2个空白单元格，不管这2个空白单元格 ...

那就这样了。

weide_yang

感谢俩位老师赐教！学习了，也解决问题了！谢谢！