親,打開妳的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