两个表的单列数据比较代码优化

雪之花

如附件，两个表的B列数据比较，若表1没有独有数据或者表2没有独有数据，就会报错。

请老师帮忙优化代码，谢谢

Sub 位号差异()     

    Dim arr, brr, d As Object, dc As Object, i%, j%
    arr = Sheets("表1").[B1].CurrentRegion
    brr = Sheets("表2").[B1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    Set dc = CreateObject("scripting.dictionary")
'----------------------------------------------
    With Sheets("结果")
    Range("2:" & Rows.Count).Clear         '清除第一行除外的所有行
End With
'----------------------------------------------
For i = 2 To UBound(arr)
        d(arr(i, 2)) = ""
    Next i
    For j = 2 To UBound(brr)
        If d.exists(brr(j, 2)) Then
            d.Remove (brr(j, 2))
        End If
    Next j
'----------------------------------------------
    For i = 2 To UBound(brr)
        dc(brr(i, 2)) = ""
    Next i
    For j = 2 To UBound(arr)
        If dc.exists(arr(j, 2)) Then
            dc.Remove (arr(j, 2))
        End If
    Next j
   
    Sheets("结果").[B2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    Sheets("结果").[A2].Resize(dc.Count, 1) = Application.Transpose(dc.keys)

    Set d = Nothing
    Set dc = Nothing
End Sub

雪之花

求大神老师帮忙解答

leirongqin

你会写这么多，那你自己加个If判断一下就好了啊，如果没有返回空值啊

雪之花

leirongqin 发表于 2022-11-18 08:43
你会写这么多，那你自己加个If判断一下就好了啊，如果没有返回空值啊

刚学数组，还没调试出来，急用求大神帮忙啊

半百

3楼说的加个if判断

另外这个点不加的话，不是WITH个寂寞

ykcbf1100

出错是因为dc字典中值是空的，加个容错语句就好了。