excel - 如何删除低于特定数字的值？

Question

比如说，我有 10 个电话号码。

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

但其中一些只有 4 个。

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

谢谢。

Answer 1

这是一个 VBA 脚本。按 Alt+F11 打开它并粘贴代码。如果要进行多项检查，请将 If Len(Cells(i, 1)) < 10 Then 更改为 eg If Len(Cells(i, 1)) < 10 Or Len(Cells(i, 1)) > 5 Then

有效的运算符是 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，则将单元格设置为电话号码，否则将单元格设置为空白 ( "")