急！请问用ＥＸＣＬ在一列数据中（手机号），如何筛选最后一位相同的所有数据．谢谢啦～～！！！

[bingmiao410]

请问用ＥＸＣＬ在一列数据中（手机号），如何筛选最后一位相同的所有数据．谢谢啦～～！！！俺用自动筛选中的通配符，只能找出一部分，不能全部找出．麻发各们达人指点～～
谢谢啦！！

[ChinaOBS]

使用 *8 应该可以筛选出所有的数据
（假设 尾数为8）

如果可以的话，可以将你测试的数据贴出来，大家看看，为什么不能找出所有数据

[baiyu20122]

把你的数据（手机号）列设成文本格式
选自动筛选,然后选自定义筛选条件,=*X
X是你要筛选的数据 如最后一位是5, =*5
就OK了.

[zipall]

选中该列，用分列向导将数据处理成文本（第3步点选文本后确定），然后再筛选。

[bingmiao410]

因涉及用户资料，我编了些号码，还望各位见谅。
13582001326
13596359986
13930126653
13993215678
13873215534
13832568879
13932326653
13933546678
13986543321
13833621178
请大家测试下，谢谢啦。（以上为本人瞎编号码，如有雷同，纯属巧合。）

[ChinaOBS]

上面提供的数据没有错啊，
请提供不能正确筛选的数据！

[bingmiao410]

我用这些试了，不行呀？也不知道我是哪弄的不对，能再说的详细些吗？唉！郁闷死啦~~

[zabaglione]

我也试了很多筛选功能但是不太好用，就自己写了一个宏，可以实现你说的功能，而且可以按尾数从上到下排好
你只要把所有号码copy到一列中。然后修改nInputLine的值。
比如你有100个号码，然后你就修改nInputLine=100运行一下，第二个sheet中生成的号码就是你要的
Sub SelectTelNum()
Dim strTel As String
Dim strTelRightNumber As String
Dim nResultLine As Integer
Dim nInputLine As Integer

Worksheets(1).Activate

nResultLine = 1
nInputLine = 10

For i = 1 To 9
For j = 1 To nInputLine
strTel = Worksheets(1).Cells(j, 1).Value
strTelRightNumber = Right(strTel, 1)
If CInt(strTelRightNumber) = i Then
Worksheets(2).Cells(nResultLine, 1) = strTel
nResultLine = nResultLine + 1
End If
Next
Next

End Sub

[bingmiao410]

真对不住，俺水平太洼，看不太懂，等上班儿试下哦~~~