For?i?=?2?To?8?'A列從第2到第8行
For?j?=?2?To?8?'E列從第2到第8行
If?Cells(j,?"E")?=?Cells(i,?"A")?Then'如果在E列找到與A列中要查的值相符的
Cells(i,?"B")?=?Cells(j,?"F")'取對應F列的值
Exit?For
End?If
Next
End?Sub