手机号怎么样拆分和分析怎么快速拆分电话号码手机号码,手机号码需要拆分两两一组来看。这些数字里面隐藏着一些信息它们会对你有着不动声色的影响。如果这些数字告诉你钱要花出去你就会很容易把钱投资出去或者借，《数字传说》就。
excel号段分拆
拿手机号举例吧，国内手机号正常是11位前三位数是运营商区分，第四到第七位数字为号段，后四位为号码。
可以用excel分列-固定宽度，先把前三位分出去，接下来就会把手机号分成两列了，再把剩余的8位长的那列分列就可以把手机号拆分出来了。
固定宽度分列
自己按照长度鼠标拖动分割线
另一种方法是用函数用两个或三个函数都可以，左截取3位用=left（a1,3），在中截取=mid(a1,4,4),在右截取=right（a1,4）这样就可以了，其中a1是根据你表格中位置确定的。
excel号段分拆
可以用vba写，不过自动填充是指填充颜色？代码如下
Sub test()
Dim x, rng, x1, x2, i, t
t = Timer
For Each rng In Cells
If Timer - t > 10 Then GoTo line
If InStr(rng.Value , "132202443")>0 Then Exit For
Next
If Cells(1,rng.Column)<>Empty Then
x1=1
Else
x1 = Range(Cells(1, rng.Column), Cells(1, rng.Column)).End(xlDown).Row
End If
x2 = Range(Cells(65536, rng.Column), Cells(65536, rng.Column)).End(xlUp).Row
For x = x1 To x2
If Timer - t > 10 Then GoTo line
i = CLng(Right(Cells(x, rng.Column), 4))
If i >= 5107 And i <= 5161 Then Cells(x, rng.Column).Interior.ColorIndex = 6
Next
Exit Sub
line:
MsgBox "没有找到该号码段"
End Sub
excel号段分拆
拿手机号举例吧，国内手机号正常是11位前三位数是运营商区分，第四到第七位数字为号段，后四位为号码。
可以用excel分列-固定宽度，先把前三位分出去，接下来就会把手机号分成两列了，再把剩余的8位长的那列分列就可以把手机号拆分出来了。
固定宽度分列
自己按照长度鼠标拖动分割线
另一种方法是用函数用两个或三个函数都可以，左截取3位用=left（a1,3），在中截取=mid(a1,4,4),在右截取=right（a1,4）这样就可以了，其中a1是根据你表格中位置确定的。
excel号段分拆
可以用vba写，不过自动填充是指填充颜色？代码如下
Sub test()
Dim x, rng, x1, x2, i, t
t = Timer
For Each rng In Cells
If Timer - t > 10 Then GoTo line
If InStr(rng.Value , "132202443")>0 Then Exit For
Next
If Cells(1,rng.Column)<>Empty Then
x1=1
Else
x1 = Range(Cells(1, rng.Column), Cells(1, rng.Column)).End(xlDown).Row
End If
x2 = Range(Cells(65536, rng.Column), Cells(65536, rng.Column)).End(xlUp).Row
For x = x1 To x2
If Timer - t > 10 Then GoTo line
i = CLng(Right(Cells(x, rng.Column), 4))
If i >= 5107 And i <= 5161 Then Cells(x, rng.Column).Interior.ColorIndex = 6
Next
Exit Sub
line:
MsgBox "没有找到该号码段"
End Sub
