要求：如果右邊姓名與左邊的姓名一樣就把左邊的內容匹配過來

下面是程式碼分享

Sub yu()

Dim sr As Range, sr2 As Range 申明變數

For Each sr In Range("i2", Cells(2, "i").End(xlDown)) 獲取右邊單元格區域

For Each sr2 In Range("a2", Cells(2, "a").End(xlDown)) 獲取左邊單元格區域

If sr = sr2 Then 條件判斷是否相同

sr.Resize(1, 3) = sr2.Resize(1, 3).Value 條件成立就把內容匹配過去

End If 結束條件判斷

Next 巢狀迴圈達到結束

Next 迴圈達到結束

End Sub