Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 536|回复: 1

身份证查重

[复制链接]
发表于 2023-3-31 10:47 | 显示全部楼层 |阅读模式
本帖最后由 ck03w11 于 2023-12-20 10:02 编辑

各位好!如果身份证号在A列从第四行开始,用代码如何查重,如有重复改变颜色。代码该怎样写谢谢!!!
发表于 2023-3-31 14:55 | 显示全部楼层
供参考
下面是GPT生成的一个VBA代码示例,可以在Excel工作表中找到重复的身份证号码并将其标注颜色:
  1. Sub FindDuplicates()
  2. Dim LastRow As Long
  3. Dim i As Long
  4. Dim j As Long
  5. Dim Count As Long

  6. '获取最后一行的行号
  7. LastRow = Cells(Rows.Count, "A").End(xlUp).Row

  8. '循环检查每个单元格,找到重复的身份证号码
  9. For i = 4 To LastRow
  10.     Count = 0
  11.     For j = 4 To LastRow
  12.         '如果两个单元格的值相同,则增加计数器
  13.         If Cells(i, "A").Value = Cells(j, "A").Value Then
  14.             Count = Count + 1
  15.         End If
  16.     Next j
  17.    
  18.     '如果计数器大于1,则表示找到了重复的身份证号码
  19.     If Count > 1 Then
  20.         '标注颜色
  21.         Cells(i, "A").Interior.ColorIndex = 3
  22.     End If
  23. Next i
  24. End Sub
复制代码


请注意,在此示例中,我们将重复的身份证号码标注为“红色”(颜色索引值为3)。您可以更改代码中的此值以更改标记的颜色。此外,这个代码只针对A列,您可以将A列更改为您想要查找重复项的列。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:27 , Processed in 0.297810 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表