急！想知道一个excel函数公式，请高手帮忙！

附件，VBA Sub tst()Dim rng1, rng2For Each rng1 In ActiveSheet.UsedRangeFor Each rng2 In Sheet1.Range("a1:a52")rng1.Replace what:=rng2, replacement:=Sheet1.Cells(rng2.Row, 2)NextNextEnd Sub