检测和标出相同姓名对应的3列数据是否重复

qlmgu

各位老师，遇到这样的难题请老师们帮忙解决：检测和标出E列相同姓名对应的BCD3列数据是否重复。没说清楚的地方请指出。感谢您。




判断3列内容重复.rar (8.49 KB, 下载次数: 5)

2023-1-17 11:36 上传

点击文件名下载附件

liulang0808

Sub test()
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    For j = 2 To UBound(arr)
        str1 = arr(j, 2) & arr(j, 3) & arr(j, 4) & arr(j, 5)
        d(str1) = d(str1) & "," & j
    Next j
    For Each kk In d.keys
        brr = Split(d(kk), ",")
        If UBound(brr) > 1 Then
            For i = 1 To UBound(brr)
                str1 = arr(Val(brr(i)), 5) & ":" & arr(Val(brr(i)), 1)
                For k = 1 To UBound(brr)
                    If i <> k Then
                        str1 = str1 & "、" & arr(Val(brr(k)), 1)
                    End If
                Next k
                arr(Val(brr(i)), 6) = str1 & "重复"
            Next i
        Else
            arr(Val(brr(1)), 6) = "无重复"
        End If
    Next kk
    [a1].CurrentRegion = arr
End Sub

liulang0808

。。。。。。

qlmgu

liulang0808 发表于 2023-1-17 12:18
。。。。。。

感谢版主liulang0808出手相助，测试结果准确。十分感谢版主。

grf1973

换个思路，通过字符串替换。数据量大的话速度应该会快一点。

qlmgu

grf1973 发表于 2023-1-17 14:22
换个思路，通过字符串替换。数据量大的话速度应该会快一点。

感谢grf1973老师，经过测试，程序结果准确，感谢您。