详细点说问题如下:
有一张表格 a列为手机号码 大概有1000多个
里面肯定有重复的
我希望将重复的 找出来 标记为其他颜色
请问怎么实现?
我目前的方法就是 按大小排序之后 用肉眼找,真他妈的麻烦
用条件格式就可以了，不用vba这么麻烦。
选中A1单元格，依次打开：格式-条件格式，凳迅罩在条件格式设置中改为公式，然后输入公式：昌嫌“=COUNTIF(A:A,A1)>1”然后设置一个你认为醒目的格式。
用格式刷把枣闹A1的格式刷到A列其它单元格中就可以了。
复制下面的代码，工具栏->睁清首宏->录制新宏->输悉数入一个宏名(找同号）－＞确定，然后工具栏->宏->停止录制宏：按Alt+F11,将下面代码粘贴，再按F5运行该宏，回到表格看看正闷吧。
Sub 找同号()
Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortTextAsNumbers
row_num = Sheet1.UsedRange.Rows.Count
For i = 1 To row_num - 1
haoma = Cells(i, 1).Value
While Sheet1.Cells(i + 1, 1) = haoma
i = i + 1
Cells(i, 1).Font.ColorIndex = 3
Wend
Next
End Sub
点工具《宏《visul basic 编辑器《 在编辑器里双击你资料所在的工作表，在代码处输入以下内容：枯弊橘
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, b, c As Double
c = Me.Range("a65536").End(xlUp).Row
For a = 1 To c
For b = a + 1 To c
If Me.Cells(b, 1) = Me.Cells(a, 1) Then
Me.Cells(b, 1).Interior.Color = 0
End If
Next b
Next a
MsgBox "计算完毕！", , "提示"
End Sub
这样就好了，之后就把这代没团码卜高删掉。
要是2007版的猛樱excel就有这个功能，在筛选里有删唯锋除重复项的菜单选项，若是2003要用到复制枝山丛的公式，你若想要我可以传送给你。
筛选重复的枣改数衫岩察据文或茄本操作步骤