excel如何将a列中重复的数据筛选出来并标注颜色啊?

Question

excel如何将a列中重复的数据筛选出来并标注颜色啊?
详细点说问题如下:
有一张表格 a列为手机号码 大概有1000多个
里面肯定有重复的
我希望将重复的 找出来 标记为其他颜色
请问怎么实现?

我目前的方法就是 按大小排序之后 用肉眼找,真他妈的麻烦

Answer 1

用条件格式就可以了，不用vba这么麻烦。
选中A1单元格，依次打开：格式-条件格式，在条件格式设置中改为公式，然后输入公式：“=COUNTIF(A:A,A1)>1”然后设置一个你认为醒目的格式。
用格式刷把A1的格式刷到A列其它单元格中就可以了。

Answer 2

复制下面的代码，工具栏->宏->录制新宏->输入一个宏名(找同号）－＞确定，然后工具栏->宏->停止录制宏：按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

Answer 3

点工具《宏《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

这样就好了，之后就把这代码删掉。

Answer 4

要是2007版的excel就有这个功能，在筛选里有删除重复项的菜单选项，若是2003要用到复制的公式，你若想要我可以传送给你。

Answer 5

筛选重复的数据文本操作步骤