单元格加减怎么变成数字加减

hhhlll123456

用单元格加减怎么变成数字加减，比如说A1为1，A2为2、
A3填入=A1+A2，按下回车显示3，

我想把公式以数字加减的方式显示出来，不要等于也可以。
比如A4单元格显示为1+2，或者显示=1+2
（就是把A1+A2改成对应的数字1+2显示（提取）出来）
期待解答

山菊花

=A1&"+"&A2
="="&A1&"+"&A2

hhhlll123456

山菊花 发表于 2015-12-10 09:59
=A1&"+"&A2
="="&A1&"+"&A2

谢谢！如果不是加法，是复杂的函数运算，怎样把中间夹着的单元格改成数字
（因为公式很多，每一个都不一样，“计算式”这一列打印出来需要数字显示）

山菊花

&是连接符，可以把多个数字或文字或符号连接起来成为一个计算式。如果是文本，左右两端要加上半角双引号。参照上面写法。

hhhlll123456

山菊花 发表于 2015-12-10 17:40
&是连接符，可以把多个数字或文字或符号连接起来成为一个计算式。如果是文本，左右两端要加上半角双引号。 ...

有没有直接把一行的计算式粘贴到另一行的方法，把里面的单元格代码替换成对应的数值就可以了，比如A1为1，
A2为2，
A3为：=SORT(POWER(A1，2)+POWER(A2，2)),回车后A3直接是计算结果，
想让A4显示：SORT(POWER(1，2)+POWER(2，2))

山菊花

Sub Test()
    Dim cGs$, oCell As Range
    cGs = Replace([a3].Formula, "$", "")
    For Each oCell In [a3].Precedents
        cGs = Replace(cGs, oCell.Address(0, 0), oCell.Value)
    Next
    [a4].Value = "'" & cGs
End Sub

hhhlll123456

这个代码怎么操作呢

山菊花

hhhlll123456 发表于 2015-12-15 17:11
这个代码怎么操作呢

右键点击工作表标签，选择“查看代码”，将代码粘贴到代码窗口。再按F5运行它。

hhhlll123456

山菊花 发表于 2015-12-16 11:54
右键点击工作表标签，选择“查看代码”，将代码粘贴到代码窗口。再按F5运行它。

你好，感谢你的回复，这个真可行
    但是我想把A3：G3行的公式全部变到A4：G4行怎么做呢，怎么改你那个代码，我还是不能灵活运用
   
  为什么论坛发消息显示收件人为空或对方屏蔽了您的短消息

山菊花

Sub Test()
    Dim cGs$, oCell As Range, Rng As Range
    For Each Rng In Range("a3:g3")
        cGs = Replace(Rng.Formula, "$", "")
        For Each oCell In Rng.Precedents
            cGs = Replace(cGs, oCell.Address(0, 0), oCell.Value)
        Next
        Rng.Offset(1).Value = "'" & cGs
    Next
End Sub