去除三位数以上数值

李红艳

去除三位数以上数值 去除三位数以上数值.rar (16.66 KB, 下载次数: 10)

2023-2-26 18:19 上传

点击文件名下载附件

shiruiqiang

for each rng in range()

if len(rng)>3 then
rng=""
endif
next
基本这样

杨建营

请楼主参考。

哎哟哥哥

Sub text()
Dim rng As Range
For Each rng In Range("n5:ao7") '这里修改自己的数据单元格范围
    If Len(rng) > 3 Then
        rng.ClearContents
    End If
Next
End Sub

gwjkkkkk

Sub test()
    ar = Range("Q5", Cells(Rows.Count, "AO").End(3))
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            If Len(ar(i, j)) > 3 Then
                ar(i, j) = ""
            End If
        Next j
    Next i
    [Q5].Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub