VBA 字典代碼修改

首先，妳的數據格式有點問題。

如果要使用currentregion來獲取當前區域的話，那麽妳要在C列和D列之間插入壹列空列。

Dim?data,?temp,?arr

Dim?d

Dim?i&,k&

Set?d?=?CreateObject("scripting.dictionary")

data?=?[a1].CurrentRegion

For?i?=?2?To?UBound(data)

d(data(i,?1)?&?data(i,?2))?=?data(i,?3)

Next

temp?=?[e1].CurrentRegion

ReDim?arr(2?To?UBound(temp),?1?To?1)

For?k?=?2?To?UBound(temp)

arr(k,?1)?=?d(temp(k,?1)?&?temp(k,?2))

Next

[g2].Resize(UBound(arr)?-?1,?1)?=?arr

Set?d?=?Nothing

End?Sub