小弟快要急疯了，求大神帮帮忙啊

ll1629

3列数据A,B,C。每列数据自身比对重复项。如果A1这一行的数据（A1-B1-C1）,与其他行比对，只要存在比对这些行数据中有任意一个数据不重复，数据就保留，3个数据一样就删除。

ll1629

ll1629

1        A        苹果
2        A        苹果
3        B        香蕉
3        B        香蕉
2        A        苹果
1        B        香蕉
3        B        香蕉

ll1629

1        A        苹果       
2        A        苹果        重复
3        B        香蕉        重复
3        B        香蕉        重复（想删除的）
2        A        苹果        重复（想删除的）
1        B        香蕉       
3        B        香蕉        重复（想删除的）

乐乐2006201506

用字典以三项为条件去重。

乐乐2006201506

自己调试并稍微一下，应该就可以了。
Sub test()
    Dim arr, ir&, i&, x1$, crr(), ic%, j%, Q&
    arr = Range("a1").CurrentRegion
    ir = UBound(arr): ic = UBound(arr, 2)
    '--------------------------------------------------
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    ReDim crr(1 To ir, 1 To ic)
    '--------------------------------------------------
    For i = 1 To ir
        x1 = arr(i, 1) & arr(i, 2) & arr(i, 3)
        If d.exists(x1) = False Then
            Q = Q + 1
            For j = 1 To ic
                crr(Q, j) = arr(i, j)
            Next j
            d(x1) = 0
        End If
    Next i
    '--------------------------------------------------
    If Q > 0 Then
        Workbooks.Add
        Range("A1").Resize(Q, ic) = crr
    End If
End Sub

liuyedao1

ll1629 发表于 2017-10-19 21:16
1        A        苹果       
2        A        苹果        重复
3        B        香蕉        重复

用高级筛选吧，条件区域什么也不要写，勾选不重复选项。

0126

选择三列数据后点击删除重复项，也可以做到你要求的

hnnyfcykl

楼主看一下，你是不是想要这样的效果。 以后提问，最好上传附件。

大灰狼1976

直接用高版本（2007版及以上）的去重复功能较方便。