如何快速将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

阅读完，记得反手一个“赞”呦~~~~

如何快速将EXCEL中许多手机号按移动和联通、电信自动分开，筛选出来相关推荐

Excel中智能生成序号，删除序号可自动（更新）接上
Excel中智能生成序号,删除序号可自动(更新)接上目录 Excel中智能生成序号,删除序号可自动(更新)接上 1.在序号单元格中输入公式[=SUBTOTAL(103,$B$2:B2)] 2.鼠标放 ...
怎样删去csv中重复行_4个锦囊，祝你快速删去Excel中的重复数据
快速删去重复数据,雷哥在这里提供4种超简单的解决方法,大家一看就会. 为了更加直接明了地说明,雷哥在这里通过具体案例进行讲解. 案例:下图B列日期中,橘黄色部分是我们已经标记好颜色的重复项. 要求:快 ...
自动化办公 | 快速从Excel中提取图片并匹配命名
大家好,我是小五???? 关于自动化办公,之前我思考过好久.到底什么是自动化办公,哪些属于能真正提高我们工作效率的知识,哪些所谓的python自动化办公项目又是伪需求? 其实挺难断定的,可能大部分人用 ...
如何快速统计Excel中Sheet数
方式1: 在excel中使用组合快捷键 alt + F11 调出vba编辑器选中左侧项目名称,右键->插入->模块将如下代码复制到新建模块窗口中,并使用快捷键F5运行 Sub shee ...
快速辨别Excel中两列数据是否相同
在Excel中通过比较两列中的数据来查找重复项.如果A列的数据没有在B列出现过,就保留单元格为空.如果A列的数据在B列出现过,就返回A列对应的数据. C1输入公式:=IF(ISERROR(MATCH( ...
如何按指定名称快速导出Excel中的图片？
照例举个例子.如下图所示,工作表中存在多张图片,现在需要将其导出,并按图片向左偏移一个单元格,也就是A列单元格的值进行命名. 导出后结果如下图所示: 如果不追求规范图片命名,只是导出Excel中的图片 ...
excel中vlookup函数的使用方法_价格表自动生成报价单，Excel中的VLOOKUP函数来搞定...
[温馨提示]亲爱的朋友,阅读之前请您点击[关注],您的支持将是我最大的动力! 公司销售的产品一般都会有一份详细的价格表,方便销售人员对外报价.但客户咨询或购买的并非全部产品,如果把整个价格表发给客户, ...
Excel中HLOOKUP函数实例（一）：自动判断并获取数据
Excel中HLOOKUP函数的用法和VLOOKUP函数的用法相似,只是vlookup函数是垂直方向的判断,而HLOOKUP函数是水平方向的判断.具体使用方法请参考<excel函数vlookup ...
excel剔除空格_如何快速去掉EXCEL中的大量空格？—文字讲解与视频操作版
文本型数据的快速变身技巧小琪已经跟顾城学习了表格与数据的基本规则,此时,她再回头看陈峰制作的人员信息管理表,发现:"顾城哥,听你这一讲,陈峰给我的这一份电子版人员信息管理表里的数据问题真的 ...

如何快速将EXCEL中许多手机号按移动和联通、电信自动分开，筛选出来

这里讲两种方法：

第一种就是正常的excel函数公式：

第二种方法就是利用代码来分开：

如何快速将EXCEL中许多手机号按移动和联通、电信自动分开，筛选出来相关推荐

最新文章

热门文章