Sub VotTakVPrimechanie()
Dim cell As Range

For Each cell In Selection
    With cell
        .AddComment ActiveCell.Formula
        .Comment.Visible = True
        .Comment.Shape.Height =  50 
        .Comment.Shape.Width =  50 
    End With
Next

End Sub

Sub KakToTak()
Dim s As String, z As String, f As String, Arr(), v, i, j, myArr1, myArr2, x, sTemp As String
  
Arr = Array("+", "-", "*", "/")
s = ActiveCell.Formula
s = Mid(s, InStr(s, "=") +  1 )
If InStr(s, ",") Then s = Replace(s, ",", ".")

sTemp = s

For i =  1  To Len(s)
    For j =  1  To UBound(Arr)
        If Left(sTemp,  1 ) = Arr(j -  1 ) Then s = Left(s, i -  1 ) & ";" & Mid(s, i +  1 ): z = z & Arr(j -  1 ) & ";"
    Next j
sTemp = Mid(sTemp,  2 )
Next i

myArr1 = Split(s, ";")
myArr2 = Split(z, ";")
  
x =  0 

For Each v In myArr1
    If IsNumeric(Left(myArr1(x),  1 )) Then
        f = f & CStr(myArr1(x)) & myArr2(x)
    Else
        f = f & CStr(Range(myArr1(x)).Value) & myArr2(x)
    End If
x = x +  1 
Next
  
ActiveCell.Value = ActiveCell.Value & " =" & f
  
End Sub

Sub test()
Dim MyFormula As String
Dim RangeToUse As Object, SingleArea As Object, SingleCell As Object

MyFormula = ActiveCell.Formula

  Set RangeToUse = ActiveCell.DirectPrecedents
  For Each SingleArea In RangeToUse.Areas
    For Each SingleCell In SingleArea
        MyFormula = Replace(MyFormula, CStr(SingleCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)), SingleCell.Value)
    Next SingleCell
  Next SingleArea
  
  ActiveCell.Value = ActiveCell.Value & " " & MyFormula
  
End Sub