[已解决]怎样判断单元格区域是否都为空单元格

qingzhen322

我是一个新手，不知道怎样判断一个单元格区域中的所有单元格都为空单元格，如果是，返回true，或者显示一个提示。如果其中有一个为非空单元格，则返回false或者显示提示。
谢谢各位不吝赐教。

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-4-26 19:58

这样行吗？判断A1:E20区域

1. Sub aa()
   
2. If Application.CountIf(Range("a1:e20"), "<>") > 0 Then
   
3. MsgBox "至少有一个不为空"
   
4. Else
   
5. MsgBox "全为空"
   
6. End If
   
7. End Sub

复制代码

跳转到最佳答案楼层

qingzhen322

不好意思，忘了说明，我的要求是写vba代码

lyf7276

range("a1:c10")<>""

ligh1298

这样行吗？判断A1:E20区域

1. Sub aa()
   
2. If Application.CountIf(Range("a1:e20"), "<>") > 0 Then
   
3. MsgBox "至少有一个不为空"
   
4. Else
   
5. MsgBox "全为空"
   
6. End If
   
7. End Sub

复制代码