如何快速將EXCEL中許多手機號按移動和聯通、電信自動分開，篩選出來
這裏講兩種方法：
第一種就是正常的excel函數公式：
=IF(LEFT(A1,3)=“134”,“移動”,IF(LEFT(A1,3)=“135”,“移動”,IF(LEFT(A1,3)=“136”,“移動”,IF(LEFT(A1,3)=“137”,“移動”,IF(LEFT(A1,3)=“138”,“移動”,IF(LEFT(A1,3)=“139”,“移動”,IF(LEFT(A1,3)=“147”,“移動”,IF(LEFT(A1,3)=“150”,“移動”,IF(LEFT(A1,3)=“151”,“移動”,IF(LEFT(A1,3)=“152”,“移動”,IF(LEFT(A1,3)=“157”,“移動”,IF(LEFT(A1,3)=“158”,“移動”,IF(LEFT(A1,3)=“159”,“移動”,IF(LEFT(A1,3)=“182”,“移動”,IF(LEFT(A1,3)=“183”,“移動”,IF(LEFT(A1,3)=“187”,“移動”,IF(LEFT(A1,3)=“188”,“移動”,IF(LEFT(A1,3)=“178”,“移動”,IF(LEFT(A1,3)=“184”,“移動”,IF(LEFT(A1,3)=“198”,“移動”,IF(LEFT(A1,3)=“130”,“聯通”,IF(LEFT(A1,3)=“131”,“聯通”,IF(LEFT(A1,3)=“132”,“聯通”,IF(LEFT(A1,3)=“155”,“聯通”,IF(LEFT(A1,3)=“156”,“聯通”,IF(LEFT(A1,3)=“185”,“聯通”,IF(LEFT(A1,3)=“166”,“聯通”,IF(LEFT(A1,3)=“175”,“聯通”,IF(LEFT(A1,3)=“176”,“聯通”,IF(LEFT(A1,3)=“186”,“聯通”,IF(LEFT(A1,3)=“145”,“聯通”,IF(LEFT(A1,3)=“133”,“電信”,IF(LEFT(A1,3)=“153”,“電信”,IF(LEFT(A1,3)=“180”,“電信”,IF(LEFT(A1,3)=“189”,“電信”,IF(LEFT(A1,3)=“181”,“電信”,IF(LEFT(A1,3)=“199”,“電信”,IF(LEFT(A1,3)=“173”,“聯通”,IF(LEFT(A1,3)=“177”,“電信”,"")))))))))))))))))))))))))))))))))))))))
第二種方法就是利用代碼來分開：
Sub test()
Dim d As Object
Dim r%, i%
Dim arr
Set d = CreateObject(“scripting.dictionary”)
yd = Array(134, 135, 136, 137, 138, 139, 150, 151, 152, 157, 158, 159, 182, 183, 184, 187, 188)
lt = Array(130, 131, 132, 155, 156, 186, 185)
dx = Array(133, 153, 189, 180, 181)
For i = 0 To UBound(yd)
d(yd(i)) = “移動”
Next
For i = 0 To UBound(lt)
d(lt(i)) = “聯通”
Next
For i = 0 To UBound(dx)
d(dx(i)) = “電信”
Next
With Worksheets(“總的”)
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range(“a2:b” & r)
For i = 1 To UBound(arr)
xm = Val(Left(arr(i, 1), 3))
If d.Exists(xm) Then
arr(i, 2) = d(xm)
End If
Next
.Range(“b2”).Resize(UBound(arr), 1) = Application.Index(arr, 0, 2)
End With
End Sub
閱讀完，記得反手一個“贊”呦~~~~