vba中如何表示如果一个区域全部为空白那么...IfRange("a1:d13")=""Then...我这样打他说类型不匹配vba中怎么表示如果一个区域全部为空白那么...IfRange("a1:d13")=""Then...我这样打他说类型不匹配

Question

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

Answer 1

Sub jkjdsaaa()Dim rng As Rangei = 0For Each rng In Range("a1:d13")If rng.Value "" Theni = i + 1End IfNextIf i 0 ThenMsgBox "此区域内有数据"ElseMsgBox "此区域为空"End IfEnd Sub