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

Question

说，我有10个电话号码。

每个号码最多有10位数。

但有些人只有4人。

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

感谢。

Answer 1

这是一个VBA脚本。按Alt + F11打开它并粘贴代码。如果要进行多项检查，请进行更改     如果Len（Cells（i，1））＆lt; 10然后 例如     如果Len（Cells（i，1））＆lt; 10或Len（Cells（i，1））＆gt; 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

Answer 2

使用此公式：

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

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