excel中如何实现点击一个单元格,在另一个单元格中显示某个单元格的计算公式

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
Range("A2") = Replace(Target.Formula,"=","")
End If
End Sub
在A2显示点击单元格的公式
再问： 能对您写的代码进行简短的解释吗？假如在一个sheet里我有几个单元格都设置了公式，这些单元格位于不同的行但位于相同的列，请问我想在这些单元格分别所处的行中找一个单元格显示公式，需要怎么改写代码呢？
再答： 改为： Private Sub Worksheet_SelectionChange(ByVal Target As Range) '如果选定区域只是一个单元格 If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then '和选定单元格同行的第三列显示选定单元格的公式 'Replace函数把选定单元格的"="替换掉，以便把公式显示出来，不是显示结果 Cells(Target.Row,3) = Replace(Target.Formula, "=", "") End If End Sub