恳请大神师傅们帮忙看下这个寻找不同数据的难题

qiongmei6

我希望在附件“个税”工作表中求得一个代码，就是“个税”表格的h列在“工资汇总”表格中的v列找不到数据，那么个税表格中对应的g：i列的数据显示在w：y中，目前的个税表格w：y列就是我希望代码执行后最后的结果，谢谢各位大神的帮忙

明天会更好zj

哈哈

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim ar, i&, j&, r&, dic As Object
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Sheets("工资汇总").[A1].CurrentRegion
    For i = 3 To UBound(ar)
        dic(ar(i, 4)) = Empty
    Next i
    r = Cells(Rows.Count, "G").End(xlUp).Row
    ar = Range("G2:I" & r).Value
    r = 0
    For i = 2 To UBound(ar)
        If Not dic.exists(ar(i, 1)) Then
            r = r + 1
            For j = 1 To UBound(ar, 2)
                ar(r, j) = ar(i, j)
            Next j
        End If
    Next i
   
    [W1].CurrentRegion.ClearContents
    If r Then
        [W1].Resize(r, UBound(ar, 2)) = ar
    Else
        MsgBox "未找到！"
    End If
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

请参考。。。