添加一个条件，检测身份证号重复

同心/ty

cyq4896 发表于 2023-5-20 20:53
代码又优化了些

老师，你5楼作品就很好！优化后反而出现问题，把标题也给一起删除了。还是以下代码好。

Sub dd()
    Dim d As Object, arr, brr, i&, j&, k
    Set d = CreateObject("scripting.dictionary")
    arr = Range("e1:g" & [a65536].End(xlUp).Row)
    For i = 11 To UBound(arr)
        If Len(arr(i, 1)) = 18 And arr(i, 2) <> 0 Then
            d(arr(i, 1)) = d(arr(i, 1)) & "," & i
        End If
    Next
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        k = Mid(Replace(d(arr(i, 1)), "," & i, ""), 2)
        If Len(k) And arr(i, 2) <> 0 Then
            brr(i, 1) = "与第" & k & "行重复"
        Else
            brr(i, 1) = Range("h" & i).Value
        End If
    Next
    [h1].Resize(UBound(arr) - 1, 1) = brr
    Set d = Nothing
End Sub

dycwuxing

cyq4896 发表于 2023-5-20 20:53
代码又优化了些

请问老师,这个Len(k)怎么理解啊? 我一直以为它后面应该接>,=这类运算符号,谢谢~
"If Len(k) And arr(i, 2) <> 0 "

cyq4896

If Len(k) 内容不为“”

yylucke

dycwuxing 发表于 2023-5-22 15:26
请问老师,这个Len(k)怎么理解啊? 我一直以为它后面应该接>,=这类运算符号,谢谢~
"If Len(k) And arr(i,  ...

Len(k) 结果就两种：0或者非0，因此等效false（为0时）和true（非0时）

同心/ty

cyq4896 发表于 2023-5-20 16:57
已改请测试

老师，我表中列数，与行数发生改变，在你提供代码中如何修改参数，业绩向右移动了8列，现在N列。而检测结果反馈由原来H列变为U列，表头位置也改变了，现处在第4和第5行上。我试改了几次没有成功，还望老师指点。

佳能lT搬砖着

1. Sub CheckDuplicateID()
   
2.     Dim lastRow As Long
   
3.     Dim idDict As Object
   
4.     Dim i As Long
   
5.     Dim id As String
   
6.     Dim score As Long
   
7.    
   
8.     '获取最后一行
   
9.     lastRow = Cells(Rows.Count, "E").End(xlUp).Row
   
10.    
    
11.     '创建字典对象
    
12.     Set idDict = CreateObject("Scripting.Dictionary")
    
13.    
    
14.     '遍历每一行
    
15.     For i = 2 To lastRow
    
16.         '获取身份证号和业绩
    
17.         id = Cells(i, "E").Value
    
18.         score = Cells(i, "F").Value
    
19.         
    
20.         '如果业绩不为 0
    
21.         If score <> 0 Then
    
22.             '如果身份证号已经存在于字典中，则说明有重复
    
23.             If idDict.exists(id) Then
    
24.                 MsgBox "身份证号 " & id & " 重复！"
    
25.                 Exit Sub
    
26.             Else
    
27.                 '否则将身份证号添加到字典中
    
28.                 idDict.Add id, 1
    
29.             End If
    
30.         End If
    
31.     Next i
    
32.    
    
33.     '如果没有重复身份证号，则弹出提示框
    
34.     MsgBox "没有重复身份证号！"
    
35. End Sub
    

复制代码

zpy2

同心/ty 发表于 2023-5-22 22:06
老师，我表中列数，与行数发生改变，在你提供代码中如何修改参数，业绩向右移动了8列，现在N列。而检测结 ...

是不是上个附件测试一下

cyq4896

试试是你要的效果吧

zpy2

zpy2 发表于 2023-5-23 07:32
是不是上个附件测试一下

绑定标题栏？


create temp table aa as
select  row_number() over (order by rowid) grp,身份证号,group_concat(rowid) 重复 from 业绩不为零的重复字段高亮行标注 where 业绩>0 group by 身份证号 having(count(*)>1);
select  iif(重复 is not null and 业绩>0,'<span class="hi">'||grp||'</span>',grp) grp2,序号,姓名,性别,住址,身份证号,新字段1,新字段2,业绩,重复 from 业绩不为零的重复字段高亮行标注 a left join aa using(身份证号);
cli_add_css~～
.bg1{ background:LightYellow; } .bg2{ background:AliceBlue; }.bg3{ background:Aqua;} ～;

cli_add_script~～
function dom2(a,iGrp){
var c = a.parentNode;
var c = c.parentNode;
console.log(iGrp)
iColor=(iGrp-1)%3+1
c.classList.add("bg"+iColor); }
function dom3(){
var aa = document.querySelectorAll(".hi"); for (i = 0;
i < aa.length; i++)
{
var iGrp=aa.innerText
//alert(iGrp)
dom2(aa,iGrp);
}

}

window.addEventListener('load',dom3());
～;

cyq4896

不从第一行起