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

同心/ty

求修改代码，附件是论坛一位老师写的，但如果标题上插入5行，代码如何修改，请大神指点。

Sub dd()
Dim d As Object, arr, brr, i&, j&, k
Set d = CreateObject("scripting.dictionary")
arr = Range("e1:e" & [a1].CurrentRegion.Rows.Count)
For i = 2 To UBound(arr)
    d(arr(i, 1)) = d(arr(i, 1)) & "," & i
Next
ReDim brr(2 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
    k = Mid(Replace(d(arr(i, 1)), "," & i, ""), 2)
    If Len(k) Then brr(i, 1) = "与第" & k & "行重复"
Next
[h2].Resize(UBound(arr) - 1, 1) = brr
Set d = Nothing
End Sub

杨建营

大致是修改这三个地方，请楼主参考。

你地铁图

身份证号18位

同心/ty

杨建营 发表于 2023-4-19 17:49
大致是修改这三个地方，请楼主参考。

老师我按你的提示修改后，运行宏没有看到效果。

同心/ty

杨建营 发表于 2023-4-19 17:49
大致是修改这三个地方，请楼主参考。

我将代码改后，结果显示出来了，但显示的a列我输入的序号码，这还不是我想要的，我想反馈过来的是行号才好。比如说第一位人员身份证号应该反馈的是与第14，17行重复，（而不是第8，11行重复）。相差6行。求完善代码。

你地铁图

111111111111111111

同心/ty

你地铁图 发表于 2023-4-19 18:25
111111111111111111

老师我要取行号，不是取A例序号，请帮我修改一下，谢谢！

你地铁图

同心/ty 发表于 2023-4-19 18:45
老师我要取行号，不是取A例序号，请帮我修改一下，谢谢！

是取序号 还是行号

同心/ty

你地铁图 发表于 2023-4-19 18:47
是取序号 还是行号

我要的是取行号，而例子代码是取序号。

你地铁图

取行号，试一下