...那么... 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 ...

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com