Excel 如何删除低于某个数字的值？

我有10个电话号码

每个数字最多有10位数字

但其中一些只有4个

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

谢谢。

使用以下公式：

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

如果长度为10，则将手机设置为电话号码，否则将手机设置为空白（

“”

）

使用以下公式：

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

如果长度为10，则将手机设置为电话号码，否则将手机设置为空白（

“”

）

---

这是一个VBA脚本。按Alt+F11将其打开并粘贴代码。如果要执行多个检查，请更改 如果Len（单元格（i，1））小于10，则 例如 如果Len（单元格（i，1））小于10或Len（单元格（i，1））大于5，则

此操作的有效运算符为或/和

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

Sub-PhoneNoStrLen（）
暗淡的持续时间一样长，我也一样长
last=单元格（Rows.Count，1）.End（xlUp）.Row
对于i=最后一步-1
如果Len（单元格（i，1））小于10，则
单元格（i，1）.EntireRow.Delete
如果结束
接下来我
端接头

这是一个VBA脚本。按Alt+F11将其打开并粘贴代码。如果要执行多个检查，请更改 如果Len（单元格（i，1））小于10，则 例如 如果Len（单元格（i，1））小于10或Len（单元格（i，1））大于5，则

此操作的有效运算符为或/和

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

Sub-PhoneNoStrLen（）
暗淡的持续时间一样长，我也一样长
last=单元格（Rows.Count，1）.End（xlUp）.Row
对于i=最后一步-1
如果Len（单元格（i，1））小于10，则
单元格（i，1）.EntireRow.Delete
如果结束
接下来我
端接头

顺便说一句，如果我想选择多个最大值，不仅是10，还有9，我如何在公式中相加？我将其设置为“等于10”

=if（LEN（B2）=10，B2，”

但您可以轻松地将其设置为“9或更长”

=if（LEN（B2）>=9，B2，”

。如果这回答了您的问题，如果您能将解决方案标记为已接受，我将不胜感激。谢谢Philong:）顺便说一句，如果我想选择多个最大值，不仅是10，还有9，我如何在公式中相加？我将其设置为“等于10”

=if（LEN（B2）=10，B2，”

，但您可以轻松地将其设置为“9或更长”

=if（LEN（B2）>=9，B2，”

。如果这回答了您的问题，如果您能将解决方案标记为已接受，我将不胜感激。谢谢菲隆：）