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

oobird · 发表于 2009-7-5 19:58

原帖由 wudingyong 于 2009-7-5 19:40 发表
尊敬的oobird 自主，我下次一定记住把附件说清楚，不好意思，新附件。新附件里的身份证号码都不是重复的，但是选定区域后执行代码后却有些要变色，我想问这是怎么回事？

检查了，变色的都是重复的。只是若有两个相同，这两个都会变色。

wudingyong · 发表于 2009-7-5 20:03

尊敬的版主，这些身份证号都不是重复的，不可能啊。

oobird · 发表于 2009-7-5 20:04

怪了，用countif函数显示重复，比对后又没有，头大了，换个方式吧：
Sub yy()
Dim d As Object
Dim c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In Selection.SpecialCells(2)
If d.exists("" & c) Then
c.Interior.ColorIndex = 6
Else
d("" & c) = ""
End If
Next
End Sub

wudingyong · 发表于 2009-7-5 20:06

我也奇了怪了，原来我用条件格式就遇到过，不过，那时我还没到论坛。我试试，谢谢了。

wudingyong · 发表于 2009-7-5 20:09

能不能把重复的两个都变色，这样好把身份证号码相同的人找出来。你这个程序很好，只是是第二次出现时才变色。能不能改进。谢了，高手就是高手，真是不同凡响。

zjdh · 发表于 2009-7-5 20:15

发现Excel只认15位，当你用"=--A10"转换身份证号时，15位以后都变为"0"了，所以前15位相同的号都变色了。

oobird · 发表于 2009-7-5 20:16

Sub yy()
Dim d As Object
Dim c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In Selection.SpecialCells(2)
If d.exists("" & c) Then
c.Interior.ColorIndex = 6
Range(d("" & c)).Interior.ColorIndex = 35
Else
d("" & c) = c.Address
End If
Next
End Sub
绿色(35)是前面的，黄色(6)的是与绿色重复的。颜色自己改成须要的！

wudingyong · 发表于 2009-7-5 20:17

是啊，我也发现的，变色的身份证号码前边大部分相同。谢谢36楼关心。

oobird · 发表于 2009-7-5 20:18

应该超过15位后公式就会用科学符号格式运算，这样被判为重复的机会就很高了！

wudingyong · 发表于 2009-7-5 20:19

用两种颜色表示，真是太好，这样也不会删除错了，版主，你真是太伟大了。佩服！！！我可要努力学习啊！！！

		自动登录	找回密码
密码			免费注册

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

回复 31楼 oobird 的帖子

回复 33楼 oobird 的帖子

回复 33楼 oobird 的帖子

回复 36楼 zjdh 的帖子

回复 37楼 oobird 的帖子