400x400图片古风:怎样录制一个检查EXCEL表格中是否有重复数值的宏？

将代码复制到你的visual basic 编辑器代码中去,功能是双击电话号码就能揭示你是否有重复,功能不一定很完善,可以自己适当改改,不过有两个地方是一定要改的,代码中有提示.

复制步骤:
点工具菜单->宏->Visual Basic编辑器->双击左边你的表的名字,将代码复制到你的进去->更改phonecol,maxrows的值->保存->关闭Visual Basic编辑器->双击电话看看
有问题就贴出来或发消息给我.

下面是代码:

Const PhoneCol = 1 '电话号码所在列,将1改成你的电话所在的列数
Const MaxRows = 20 '最大查找的行数,将20改成你的excel表的总共行数

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Long, y As Long, i As Long, S, C, B As Boolean
y = Target.Column
x = Target.Row
C = Cells(x, y)
If VarType(C) = vbEmpty Then Exit Sub
If y = PhoneCol Then
B = False
For i = 1 To MaxRows

If i <> x Then
S = Cells(i, PhoneCol)
If C = S Then
B = True
Exit For
End If
End If
Next
If B Then
MsgBox "号码:" & C & "有重复!"
Else
MsgBox "号码:" & C & "不重复!"
End If
End If

End Sub

我一般用自动筛选。。。
然后看下大概。。。