新人求助，怎样导入怎样数据

链接: https://pan.baidu.com/s/1SnxMJn4BDtLzSoRVnwAWmA 提取码: p22g 复制这段内容后打开百度网盘手机App，操作更方便哦

总计一直对不上数。

Option Explicit
Sub abc()
　Dim i, a, d, t
　a = Range("g2:h" & [g2].End(xlDown).Row).Value
　Set d = CreateObject("scripting.dictionary")
　For i = 1 To UBound(a)
　　t = Trim(a(i, 1))
　　If d.exists(t) Then MsgBox t: Exit Sub Else d(t) = a(i, 2)
　Next
　a = Range("a2:a" & [a2].End(xlDown).Row).Value
　For i = 1 To UBound(a)
　　t = Trim(a(i, 1))
　　If d.exists(t) Then a(i, 1) = d(t) Else a(i, 1) = Empty
　Next
　[d2].Resize(UBound(a)) = a
End Sub

请问大师，怎样把在A列目标区域找不到的G列数据标记出来，以便人工分析？