vba中怎么表示如果一个区域全部为空白 那么... If Range("a1:d13") = "" Then...我这样打他说类型不匹配
直接判不行，做个小函数，求指定区域所有单元格的值的长度：
Function lenRange(ByVal TD As String) As Long
Dim x
lenRange = 0
For Each x In Range(TD)
lenRange = lenRange + Len(x.Value)
Next
End Function
然后
If lenRange("a1:d13") >0 Then ...
Function lenRange(ByVal TD As String) As Long
Dim x
lenRange = 0
For Each x In Range(TD)
lenRange = lenRange + Len(x.Value)
Next
End Function
然后
If lenRange("a1:d13") >0 Then ...
温馨提示：答案为网友推荐，仅供参考
