查找重复

fhqham

查找重复数据量很大，如何用VBA快速解决，谢谢各位老师

小乔℡

代码附上 希望对您有所帮助

小乔℡

.....................压缩格式不对 传不了文件 给您图片吧

fhqham

小乔℡ 发表于 2023-3-30 12:01
.....................压缩格式不对 传不了文件 给您图片吧

感谢帮助，我看您的结果和我需要的不一样，我需要是相同部门下产品在不同区域重复的，在按产品排序，例如：1区和2区有相同的产品且部门是一样的

sheeboard

用pandas参考

1. import pandas as pd
   
2. df=pd.read_excel('查找重复.xlsx',usecols=[0,1,2])
   
3. df[df.duplicated(subset=['产品','部门'],keep=False)].sort_values(by=['产品','区域']).to_excel('result.xlsx',index=False)
   

复制代码

小乔℡

大概明白了  等下哈

lushang2018

fhqham

lushang2018 发表于 2023-3-30 15:57

感谢帮助，我看您的结果和我需要的不一样，我需要是相同部门下产品在不同区域重复的，在按产品排序，例如：1区和2区有相同的产品且部门是一样的

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar, br, cr, i&, r&, dic As Object, vKey, iRow&
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion
    For i = 2 To UBound(ar)
        vKey = ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 3)
        dic(vKey) = ""
    Next i
   
    iRow = Cells(Rows.Count, "G").End(3).Row
    With [G1].Resize(iRow).Resize(, 3)
        .Offset(1).Clear
        br = .Resize(UBound(ar))
        r = 1
    End With
    For Each vKey In dic.keys
        cr = Split(vKey, "|")
        r = r + 1
        For i = 0 To UBound(cr)
            br(r, i + 1) = cr(i)
        Next i
    Next
   
    With [G1].Resize(r, 3)
        .Value = br
        ActiveSheet.Sort.SortFields.Clear
       .Sort key1:=.Item(2), Order1:=xlAscending, key2:=.Item(3), Order2:=xlAscending, key3:=.Item(1), Order3:=xlAscending, Header:=xlYes
    End With
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。