根据手机号码和固定电话号码的长度不同,利用IF函数和LEN函数设计公式来得到结果。
举例如下:
sub del_phone()
thisworkbook.sheets("表格的名字").activate
dim mcell as range
for each mcell in range("区域第一个单元格:区域最后一个单元格")
if left(mcell.value,2)<> 13 or left(mcell.value,2)<> 15 then mcell.value=""
next mcell
end sub
按alt+f11就如vba编辑窗口,插入模块,把上面的代码复制到模块里面
把表格的名字替换成你得表的名字;
把区域第一个单元格:区域最后一个单元格 替换成你电话号码所在的区域
然后在vba窗口按f5执行代码就可以了!
看下你的电话是几位的,手机是11位的,用=len(A1),再排序下就知了,没用的就删了,再将辅助列删了就好了
注A1为联系电话列的位置
数据-筛选-自动筛选-条件-自定义-以13开头,与上以15开头
手机基本就出来了
用IF函数判断,一般位数不同。把不是11位的去掉。