EXCEL我感觉很少人会解！

假设A1*B1+C1
=A1&"x"&B1&"+"&C1&"="&A1*B1+C1

完美解决你的问题，把下面代码输入工作表代码窗口(不是模块)就可以，这个工作表所有的单元格就都可以实现，而且是本单元格直接显示，啥公式函数都可以。注意公式前后都不要输入=，例如输入788*2+523后回车就会在本单元格生成788*2+523=2099，而且生成的数据是没有公式的。后续我会升级让后面加=回车也能正常显示，也就是输入788*2+523=也能自动生成788*2+523=2099，毕竟很容易后面习惯加个等号。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim formulaCell As Range
Dim result As Double
Dim output As String
'确保只处理单个单元格，并且该单元格不是空的
If Target.Count = 1 And Not IsEmpty(Target.Value) Then
Set formulaCell = Target
'尝试计算输入的公式
On Error Resume Next '忽略错误
result = Evaluate(formulaCell.Value)
On Error GoTo 0 '恢复错误处理
If Not IsError(result) Then '检查计算是否成功
output = formulaCell.Value & "=" & result '生成输出文本
'更新单元格内容
Application.EnableEvents = False '防止再次触发事件
formulaCell.Value = output
Application.EnableEvents = True '重新启用事件
End If
End If
End Sub

把输入数据的单元格隐藏就好了啊，至于结果用&连接就好了

下面是优化后的代码，现在公式后面加等号，或者等号加字符也能正确显示了。比如输入1+2、1+2=、1+2=3、1+2=4都能正常显示1+2=3了。
Private Sub Worksheet_Change(ByVal Target As Range) '单元格更改触发事件子程序
Dim formulaCell As Range '定义一个变量用于存储公式单元格
Dim result As Variant '定义一个变量用于存储计算结果
Dim output As String '定义一个变量用于存储最终输出内容
Dim formula As String '定义一个变量用于存储提取的公式部分
If Target.Count = 1 And Not IsEmpty(Target.Value) Then '检查目标单元格是否只有一个且不为空
Set formulaCell = Target '将目标单元格赋值给formulaCell
If InStr(1, formulaCell.Value, "=") > 0 Then '检查单元格内容是否包含等号
formula = Left(formulaCell.Value, InStr(1, formulaCell.Value, "=") - 1) '提取等号前的公式部分
Else
formula = formulaCell.Value '如果不包含等号,则整个内容作为公式
End If
On Error Resume Next '尝试计算公式结果,忽略错误
result = Evaluate(formula)
On Error GoTo 0 '恢复错误处理
If IsNumeric(result) Then '检查计算结果是否为数值
output = formula & "=" & result '将公式和结果拼接成字符串
Else
output = formulaCell.Value '如果结果不是数值,则直接使用单元格内容
End If
Application.EnableEvents = False '禁用事件以防止循环触发
formulaCell.Value = output '将拼接后的内容写回单元格
Application.EnableEvents = True '恢复事件处理
End If
End Sub

一般就是表头表列号1,2,3,4,5,6=1+2,7=2*3这样的