如何删除某些数字以下的值？

说，我有10个电话号码。

每个号码最多有10位数字。

但是其中一些只有4个。

如何删除未达到10位数字的号码？

谢谢。

Answer 1

使用这个公式：

=IF(LEN(B2) = 10, B2, "") 

如果长度为10，则将单元格设置为电话号码，否则将单元格设置为空（ "" ）

Answer 2

这是一个VBA脚本。 通过按Alt + F11并粘贴代码来打开它。 如果要进行多重检查，则将If Len（Cells（i，1））<10然后更改为例如If Len（Cells（i，1））<10或Len（Cells（i，1））> 5然后

有效的操作符是Or / And

 Sub PhoneNoStrLen() Dim last As Long, i As Long last = Cells(Rows.Count, 1).End(xlUp).Row For i = last To 1 Step -1 If Len(Cells(i, 1)) < 10 Then Cells(i, 1).EntireRow.Delete End If Next i End Sub