Sub s()
For i = 10 To 12
For j = 2 To 11
If Len(Cells(i, j).Text) < 7 Then
Cells(i, j) = ""
End If
Next
Next
End Sub
Sub 清除()
For Each rng In Range("b10:k12")
If Len(rng) < 7 Then rng = ""
Next
End Sub
for each a in range("B10:K12")
if len(a)<7 then a.value=""
next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024