...那么... If Range("a1:d13") = "" Then...我这样打他说类型不匹配...
发布网友
发布时间：2024-10-23 20:11
共1个回答
热心网友
时间：2024-10-28 23:59
直接判不行，做个小函数，求指定区域所有单元格的值的长度：
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 ...
