excel vba使用哪个函数可以检测单元格内容少于15字时进行删除?

发布网友发布时间：2022-04-27 04:56

共4个回答

热心网友时间：2022-06-26 14:08

len(range("A1"))<15
检测单元格内容是否少于15字

IF len(range("A1"))<15 then
range("A1").clear
end if

热心网友时间：2022-06-26 14:08

可以使用如下代码：

Sub Delete_LSS15()
On Error Resume Next
Dim myRange As Range
For Each myRange In ActiveSheet.UsedRange
If Len(myRange) < 15 Then
myRange.ClearContents
End If
Next
End Sub

可采用函数操作。利用len(A1)<15，而后再进行筛选删除等操作。

热心网友时间：2022-06-26 14:09

len 检测内容长度 delete 删除单元格

热心网友时间：2022-06-26 14:09

问题再描述清楚一点。
sub mysub()
dim i as long
for i =1 to range("L65536").end(xlup).row
if range("L"&i) MOD 5 =0 Then '假设是5的倍数，即你题中的X。

range("L"&i).clearcontents
end if
next i
end sub