關於Excel VB的問題

[yesorno2006]

版主，您好，我是一個程式的初學者，在excel中，用別人教我的方法寫了以下的程式碼，可是我發現執行的速度變得很慢，請問，有沒有解決的辦法呢?

說明1：我因為工作之故，必須將C17儲存格的內容自動變為我輸入C9儲存格的內容，其餘的就類推。
說明2：寫好的程式碼在以下。

麻煩版主幫幫我，我真得很急，再次感謝。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("C17").Value = Range("C9")
Range("E17").Value = Range("E9")
Range("G17").Value = Range("G9")
Range("I17").Value = Range("I9")
Range("K17").Value = Range("K9")
Range("M17").Value = Range("M9")
Range("O17").Value = Range("O9")
Range("Q17").Value = Range("Q9")
Range("S17").Value = Range("S9")
Range("U17").Value = Range("U9")
Range("W17").Value = Range("W9")
Range("Z17").Value = Range("Z9")

Range("C20").Value = Range("C12")
Range("E20").Value = Range("E12")
Range("G20").Value = Range("G12")
Range("I20").Value = Range("I12")
Range("K20").Value = Range("K12")
Range("M20").Value = Range("M12")
Range("O20").Value = Range("O12")
Range("Q20").Value = Range("Q12")
Range("S20").Value = Range("S12")
Range("U20").Value = Range("U12")
Range("W20").Value = Range("W12")
Range("Z20").Value = Range("Z12")

End Sub

[Dora]

若不用巨集，可直接在c17輸入"=c9"即可(E17儲存格輸入=E9，餘類推)，或用複製／貼上連結即可．

或原巨集換個表達方式看看
Cells(17, 3).Value = Range("c9")
Cells(17, 5).Value = Range("E9")
.
.
.