把选定区域重复内容自动变色(已解决）

wudingyong

选定一定区域后，执行宏代码，重复区域自动其它颜色显示。用条件格式很麻烦，我经常用，次次都要设定条件格式，且条件格式受公式范围影响。那位大侠赐教一下，能不能运行宏代码重复区域自动变色。
    今天我提的问题又幼稚了吗？怎么没人理啊。

出现新问题了，请看30楼。

[ 本帖最后由 wudingyong 于 2009-7-5 20:30 编辑 ]

LangQueS

建议楼主压缩上传Excel问题附件并加以说明或做出模拟结果，以便大家了解和解答。(编辑已发贴即可补充上传附件)

如何发表新话题和上传附件:
http://club.excelhome.net/thread-45649-1-1.html

发帖的技巧:
http://club.excelhome.net/thread-176339-1-1.html

laoyebin

把设条件格式的过程录个宏

wudingyong

范围不是固定的。

wudingyong

谢谢版主提醒！

laoyebin

原帖由 wudingyong 于 2009-7-4 19:07 发表
范围不是固定的。

录个宏，自己改一下区域呀

wudingyong

我经常排查不同表格中的重复值，我的意思是做一个万能的宏程序，到时选中要排查的区域，执行宏代码就行了。

wudingyong

尊敬的版主，附件传上来了。麻烦看一看。

LangQueS

请参考：

Sub 指定当前区域中的重复数据单元颜色()
Dim s As Range
For Each s In Selection
If Application.WorksheetFunction.CountIf(Range(Selection.Address), s.Value) > 1 Then   '指定范围和内容的单元数量
s.Interior.ColorIndex = 45
End If
Next
End Sub

wudingyong

我看看，先谢了。