两种做法:
正向做,输入完公式,前面加一个 ',就会显示公式
在后一个单元格显示数值就需要配合VBA
代码放到Sheet1中的VBE中
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Sheet1.Range("A1")
If Not Application.Intersect(Target, rng) Is Nothing Then
Range("B1").Value = Application.Evaluate(Range("A1").Value)
End If
End Sub
反向做法:
在后一个单元格写公式,在前一个单元格提取后一个单元格的公式
提取公式可以使用VBA函数,代码放在模块中
Function Hasf(rng As Range)
If rng.HasFormula Then
Hasf = rng.Formula
Else
Hasf = ""
End If
End Function
或者用宏表函数:定位到B1,Ctrl+F3定义一个名称 公式
引用位置写为 =Get.Cell(6,B1)
然后在前一个单元格A1写入 =公式
温馨提示:答案为网友推荐,仅供参考