大佬帮忙看下如何优化下

'按图示凑的，如果按文字描述你的图示结果是错的
Option Explicit
Sub abc()
　Dim i, a, d
　a = [e2].Resize([e1].End(xlDown).Row - 1).Value
　Set d = CreateObject("scripting.dictionary")
　For i = 1 To UBound(a)
　　d(a(i, 1)) = i
　Next
　a = [a1].CurrentRegion.Offset(1).Resize(, 2).Value
　For i = 1 To UBound(a) - 1
　　If d.exists(a(i, 1)) And d.exists(a(i, 2)) Then
　　　If d(a(i, 1)) < d(a(i, 2)) Then a(i, 1) = a(i, 2)
　　Else
　　　a(i, 1) = "?"
　　End If
　Next
　[c2].Resize(UBound(a) - 1) = a
End Sub

=MID("ABCD",MAX(FIND(A2:B2,"ABCD")),1)
按3键

=CHAR(MIN(CODE(A2),CODE(B2)))