Option Explicit
Sub 轉換()
Dim dict, arr, i, j, k
dict = Sheets(1).UsedRange '字典關系表
arr = Sheets(2).UsedRange '需要轉換的表
For i = 2 To UBound(arr)
For j = 3 To 5
For k = 1 To UBound(dict)
If dict(k, 1) = arr(i, j) And dict(k, 3) = arr(1, j) Then
arr(i, j) = dict(k, 2)
Exit For
End If
Next k
Next j
Next i
Sheets(2).UsedRange = arr '回寫轉換結果
End Sub