Private Sub Worksheet_SelectionChange(ByVal Target As Range) '当选择了新的单元格区域时,该宏代码会自动执行。
Static FormulaText '设置可长期储存的变量FormulaText,可放入公式内容
If FormulaText <> "" Then '如果该变量不为空…… On Error Resume Next Range("FormulaCell").Formula = FormulaText '把上次储存到的公式内容重新写入到上次选择的有公式的单元格中。 End If
If Target.HasFormula Then '如果判断新选择的单元格内有公式 Target.Name = "FormulaCell" '首先把该有公式的单元格命名为FormulaCell FormulaText = Target.Formula '其次把该单元格内公式内容存储到变量FormulaText中以备用。 Target = Target '最后把该单元格内公式转化为计算结果值来表示。 End If End Sub本回答被网友采纳