Suppose your formulas are in the range A1: A5
Open VBE by pressing Alt + F11 and enter the following code into the general module of the same book
Function GetFormula(Cell As Range) As String GetFormula = Cell.Formula End Function
I have this code from http://dmcritchie.mvps.org/excel/formula.htm
For instructions on how to insert this code into the module, see the "Where to Place the Code" section at http://www.cpearson.com/excel/writingfunctionsinvba.aspx
Now you can extract the formula. Use this formula in an auxiliary column, such as column B
=SUBSTITUTE(GetFormula(A1),"(1,","(9,")
Now copy this formula to where you need it, and copy the insertion values ββonly where necessary.
You can also use this trick to change any other formulas you need, so I suggest you keep this piece of code handy :)
playercharlie
source share