excel - 特定の桁以下の値を削除するには?

Question

たとえば、10 の電話番号を持っているとします。

各番号は最大 10 桁です。

ただし、中には 4 つしかないものもあります。

10桁に満たない数字を消すには？

ありがとう。

Answer 1

これは VBA スクリプトです。Alt+F11 を押して開き、コードを貼り付けます。複数のチェックを行う場合は、If Len(Cells(i, 1)) < 10 Then を 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 の場合はセルを電話番号に設定し、それ以外の場合はセルを空白に設定します ( "")