根据规则检查BCEFK列数据是否一致在G列标注

APPLE123

根据规则检查BCEFK列数据是否一致在G列标注
1、规则1：同一人在同一年度不能因为同一事件被处理两次
2、规则2：同一人的判断标准为姓名与证号两者均一致
3、检查年度、姓名、证号分别在B、C、E列
4、如检查年度、姓名、证号3列数据一致，那么数据F、K列对应单元格内容就不能一致，哪怕一项一致也不行，也要在G列提示“请仔细检查F列和K列”
5、全部数据有1万多条数据，本例仅模拟一点点数据。
6、姓名大部分不重复，但有少量重复，未排序。
希望使用VBA一键检查并在G列标记。
麻烦老师帮忙看看，谢谢！

512008404

参与一下！



Public Sub check()
    Dim lastRow  As Integer
    Dim dic As New Dictionary
    Dim arr
    Dim str1, str2
    lastRow = UsedRange.Rows.Count
    arr = Range("A1:L" & lastRow).Value
    For i = 2 To lastRow
        str1 = arr(i, 2) & "-" & arr(i, 3) & "-" & arr(i, 5) & "-" & arr(i, 6)
        str2 = arr(i, 2) & "-" & arr(i, 3) & "-" & arr(i, 5) & "-" & arr(i, 11)
        If dic.Exists(str1) Then
            dic(str1) = dic(str1) + 1
        Else
            dic.Add str1, 1
        End If
        
        If dic.Exists(str2) Then
            dic(str2) = dic(str2) + 1
        Else
            dic.Add str2, 1
        End If
    Next i
    For i = 2 To lastRow
        str1 = arr(i, 2) & "-" & arr(i, 3) & "-" & arr(i, 5) & "-" & arr(i, 6)
        str2 = arr(i, 2) & "-" & arr(i, 3) & "-" & arr(i, 5) & "-" & arr(i, 11)
        If dic(str1) > 1 Or dic(str2) > 1 Then Cells(i, "G") = "请仔细检查F列和K列"
    Next i
End Sub

APPLE123

512008404 发表于 2023-7-6 16:06
参与一下！

谢谢老师的帮助！

sdytsxd991122

参与一下

APPLE123

sdytsxd991122 发表于 2023-7-8 08:02
参与一下

您好！谢谢老师的帮助！

请教一下老师， 如果ss中有一项不一致，不管是arr(i, 6)，还是arr(i, 11)，都会提示下标越界，有一行代码都会刷黄色，详见附件
麻烦老师在帮帮看看该如何修改，谢谢！         

mmwwdd

mmwwdd

就是判断多一些

sdytsxd991122

请测试

APPLE123

mmwwdd 发表于 2023-7-12 08:42

老师，谢谢您的帮助！
可能是我没说明白，我的意思是：
如果B、C、E三列的内容与其他行的一致，在F与K列的对应行中，只要有1列数据一致，就要进行提示“请仔细检查F列和K列”

详见5楼附件
请老师再帮我看看，该如何修改您的代码，谢谢！

mmwwdd

APPLE123 发表于 2023-7-12 09:50
老师，谢谢您的帮助！
可能是我没说明白，我的意思是：
如果B、C、E三列的内容与其他行的一致，在F与K ...

是啊，我的不对吗