[已解决]识别重复行删除重复值

心灵有约

识别重复行删除重复值.rar (8.52 KB, 下载次数: 16)

2022-11-26 23:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-11-27 12:27

Sub test()
    Dim arr, dic As Object, i&, str
    arr = Range("A1").CurrentRegion
    Set dic = VBA.CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        str = Replace(arr(i, 2) & arr(i, 3) & arr(i, 6), " ", "")
        If dic.exists(str) Then
            arr(i, 6) = ""
        Else
            dic(str) = ""
        End If
    Next i
    Range("A1").CurrentRegion = arr
End Sub

跳转到最佳答案楼层

哥儿-

Sub test()
    Dim arr, dic As Object, i&, str
    arr = Range("A1").CurrentRegion
    Set dic = VBA.CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        str = Replace(arr(i, 2) & arr(i, 3) & arr(i, 6), " ", "")
        If dic.exists(str) Then
            arr(i, 6) = ""
        Else
            dic(str) = ""
        End If
    Next i
    Range("A1").CurrentRegion = arr
End Sub

风林火山

1. G2=IF(COUNTIFS($B$2:B2,B2,$C$2:C2,C2,$F$2:F2,F2)=1,F2,"")下拉

复制代码

心灵有约

风林火山 发表于 2022-11-28 09:41

谢谢。没办法，只能有一个最佳答案。