親，打開妳的Excel文件，按“Alt+F11”打開VBA編輯窗口，然後在左側對應的Sheet上雙擊，右側空白處粘貼下面的代碼。關閉VBA窗口。然後按“Alt+F8”打開宏窗口，選擇剛插入的宏，點擊“執行”。
Sub?cz()Dim?f?As?Range:?Dim?i,?n?As?Integer
n?=?3357:?Columns("D").NumberFormat?=?"@"
For?i?=?3357?To?3343?Step?-1
Set?f?=?Range("B3343:B3357").Find(Range("A"?&?i).Value)
If?Not?f?Is?Nothing?Then?Range("C"?&?n).Value?=?i:?Range("D"?&?n).Value?=?Range("A"?&?i).Value:?n?=?n?-?1
Next
End?Sub