在excel中，如何用代码实现单击某单元格，让另一个单元格自动填写该单元格的内容

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 4 And Target.Row > 1 And Target.Row < 52 Then Sheet2.Range("C1") = Target End If End Sub