可以使用 IsEmpty（）函数如下：

...
Set rRng = Sheet1.Range("A10")
If IsEmpty(rRng.Value) Then ...

您还可以使用以下内容： p>

you could also use following:

If ActiveCell.Value = vbNullString Then ...

我不是VBA程序员，所以你不介意？

I'm not a VBA programmer so you won't mind?!

希望它有助于