判断K3:K100区域无数值的话显示空单元格，但是我单元格里面无数据，还是显示非空单...

sunny568914 · 发表于 2023-5-3 10:06

本帖最后由 sunny568914 于 2023-5-3 10:33 编辑

Sub 判断()
  If Worksheets("记工表").Range("k3:k100").Select = " " Then
  MsgBox "空单元格"
  Else
  MsgBox "非空单元格"
End If

End Sub

3190496160 · 发表于 2023-5-3 10:20

Sub 判断()
sl = Application.CountA(Range("K3:K100"))
If sl = 0 Then
MsgBox "空单元格"
Else
MsgBox "非空单元格"
End If
End Sub

3190496160 · 发表于 2023-5-3 10:21

3190496160 · 发表于 2023-5-3 10:22

调用计算非空单元格个数的工作表函数counta即可

		自动登录	找回密码
密码			免费注册

判断K3:K100区域无数值的话显示空单元格，但是我单元格里面无数据，还是显示非空单...

评分