Excel使用VBA实现单击指定单元格时显示另一个单元格内容

需求

当单击单元格C5时，显示单元格A1中的内容

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target.Cells(1, 1), Range("C5")) Is Nothing Then
Range("C5") = Range("A1")
End If
End Sub