大批EXCEL数据，需要筛选手机号码，要求尾数为：AABB、ABAB、AAA、AAAA、AAAAA、AAAAAA。请教怎么操作？

AAAAA
在B1中输入或复制粘贴下列公式
=RIGHT(A1,5)=REPT(RIGHT(A1),5)
下拉填充
谁选B列结果为TRUE的各行

AAAA
在B1中输入或复制粘贴下列公式
=RIGHT(A1,4)=REPT(RIGHT(A1),4)
下拉填充
谁选B列结果为TRUE的各行

AAA
在B1中输入或复制粘贴下列公式
=RIGHT(A1,3)=REPT(RIGHT(A1),3)
下拉填充
谁选B列结果为TRUE的各行

试试我的VBA程序，点按钮即可 。

Sub 按钮1_Click()
Dim c(5) As Integer, i As Long, j As Integer, x As Long
x = Range("A65536").End(xlUp).Row
For i = 1 To x
    For j = 1 To 6
        c(j - 1) = Mid(Cells(i, 1), 12 - j, 1)
    Next
        If c(0) = c(1) And c(2) = c(3) Or c(0) = c(2) And c(1) = c(3) Or c(0) = c(1) And c(2) = c(0) Or c(0) = c(1) And c(2) = c(0) And c(3) = c(0) Or c(0) = c(1) And c(2) = c(0) And c(3) = c(0) And c(4) = c(0) Or c(0) = c(1) And c(2) = c(0) And c(3) = c(0) And c(4) = c(0) And c(5) = c(0) Then
            Cells(i, 2) = "Ñ¡ÖÐ"
        End If
Next
End Sub