大神求助｜筛选后下拉填充问题

if（a2="98"，"重汽"，if(a2=99,"解放"））

上个品牌和分数的对照表，10W行不带输出1s估计就能解决的。（抓个图也行，需要带行列标）

Option Explicit
Sub abc()
　Dim a, i, d
　a = Range("d2:e" & [d1].End(xlDown).Row).Value
　Set d = CreateObject("scripting.dictionary")
　For i = 1 To UBound(a)
　　d(a(i, 1)) = a(i, 2)
　Next
　a = [a1].CurrentRegion.Offset(1).Resize(, 1).Value
　For i = 1 To UBound(a) - 1
　　If d.exists(a(i, 1)) Then a(i, 1) = d(a(i, 1)) Else a(i, 1) = vbNullString
　Next
　[b2].Resize(UBound(a) - 1) = a
End Sub