Question

vba中如何表示如果一个区域全部为空白 那么...If Range("a1:d13") = "" Then...我这样打

Answer 1

Sub jkjdsaaa()

Dim rng As Range

i = 0

For Each rng In Range("a1:d13")

If rng.Value "" Then

i = i + 1

End If

Next

If i 0 Then

MsgBox "此区域内有数据"

Else

MsgBox "此区域为空"

End If

End Su