恳请高手师傅们帮忙看下这个对比清除其中一个的难题

qiongmei6

我希望求得一个代码，在附件d列相同的账号，如果b列一致，则清除最下的b单元格，例如表格中第5和第8行是相同的账号，而他们的b单元格也相同，那清除第8行的b单元格，保留第5行的单元格，如图就是我希望得到的结果，谢谢各位大神的帮忙。

ahnyt

看后面的，发错了

ahnyt

是删除相同的吧

qiongmei6

不删除第8行，就是删除b8的数据

chxw68

详见附件。

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar, i&, dic As Object, strKey$
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion
    For i = 3 To UBound(ar)
        strKey = ar(i, 2) & "|" & ar(i, 4)
        If Not dic.exists(strKey) Then
            dic(strKey) = ""
        Else
            ar(i, 2) = ""
        End If
    Next i
   
    [A1].CurrentRegion = ar
    Set dic = Nothing
    Beep
End Sub