用VBA找出某列中身份证号重复记录并标出

MOY838840554 · 发表于 2017-1-4 15:53

没必要代码吧，用【条件格式】-【重复】，然后整表根据身份证列的【颜色】进行排序

Yedajun · 发表于 2017-1-6 23:05

看见星光发表于 2016-2-15 09:21

k = Mid(Replace(d(arr(i, 1)), "," & i, ""), 2)改成 k = Mid(Replace(d(arr(i, 1)), "," & i, ""，1，1), 2)才对

nokiarookie · 发表于 2017-10-12 10:41

看见星光发表于 2016-2-15 09:23
refor to

你好，能分别解释一下这两句话的意思吗，看不太明白。
d(arr(i, 1)) = d(arr(i, 1)) & "," & i

ReDim brr(2 To UBound(arr), 1 To 1)

nokiarookie · 发表于 2017-10-12 15:05

Yedajun 发表于 2017-1-6 23:05
k = Mid(Replace(d(arr(i, 1)), "," & i, ""), 2)改成 k = Mid(Replace(d(arr(i, 1)), "," & i, ""，1， ...

确实是！不然会被多替换。

nmcfbgttyl · 发表于 2017-10-16 23:13

本帖最后由 nmcfbgttyl 于 2017-10-17 08:13 编辑

看见星光发表于 2016-2-15 09:21

求助-用字典方法找出两表身份证号重复人员.rar (13.16 KB, 下载次数: 36)
老师，您好，感谢您在http://club.excelhome.net/thread-1258892-1-1.html帮我解决查重复问题，现在想在两张表中查重复，比如 A工作表中有3000条数据，B工作表中有4500条数据，怎样用字典的方法分别在A表和B表上标记出两表重复数据呢（以身份证号列为查重标准），请老师帮忙，谢谢！

碧水红叶 · 发表于 2018-2-6 09:45

Yedajun 发表于 2016-12-30 20:11
不要第一行，代码修改如下，若第1行、与第8行、第13行重复，为何第一行统计不对？求大师解一下！
Sub dd ...

如果在首行上面插入任意行应该怎么改代码呢？现在插入行后执行错误。

qinhuan66 · 发表于 2019-1-24 14:18

好好学习天天向上

hg908 · 发表于 2020-8-21 15:55

学习收藏中

smiletwo · 发表于 2020-8-21 16:22

本帖最后由 smiletwo 于 2020-8-21 17:15 编辑

smiletwo · 发表于 2020-8-21 17:31

Sub aa()
  Dim i, j, sam
  Dim arr
  arr = Range("A1").CurrentRegion
  For i = 2 To UBound(arr)
   sam = ""
   For j = 2 To UBound(arr)
      If j <> i And arr(i, 5) = arr(j, 5) Then
         If sam <> "" Then
         sam = sam & "," & j
         Else
         sam = sam & j
         End If
      End If
   Next
   If sam <> "" Then
      arr(i, 8) = "与第" & sam & "行重复"
   End If
  Next
  Range("A1").CurrentRegion = arr
  Range(Cells(2, 8), Cells(UBound(arr), 8)).Font.Color = vbRed
End Sub

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

[求助] 用VBA找出某列中身份证号重复记录并标出