is it possible to insert equal signs in cells that have formulas written but lacking the equal sign?

[Marq]

using excel 2007

I have thoughsands of cells that have a formula written in them (dont ask haha) but do not have the equal sign at the beginning fo the formula.

can i highlight all of the cells and do one massive "=" insertion?!?!

right now im going into each cell, clicking, plug in equal sign, then enter and of course this works but its going to take forever!

 

[VoG]

Try this - select the range then run the macro

Sub MakeFmla()
Dim c As Range
For Each c In Selection
    c.Formula = "=" & c.Value
Next c
End Sub

 

[njimack]

Sub Insert_Equals()

Application.ScreenUpdating = False

Dim cell As Range

For Each cell In Selection
    cell.Formula = "=" & cell.Value
Next cell

Application.ScreenUpdating = True

End Sub

 

[Jonmo1]

It's not quite as easy as you might think..but can definately be done..

Say it's A1 that has your formula without the =
In B1 put
="="&A1
Then copy B1
Paste Special Values onto A1
It's now a text string that begins with =

Now use Find/Replace
to replace = with =


Hope that helps

Edit...
OK, maybe it is easy with VBA code's provided above...

 

[Dannyh1]

Try

B1 ="="&A1

Copy down - copy paste values only - Text to columns - Next to last screen - select general, Finish

 

[Dannyh1]

sorry - I'm a very slow typer - 3 solutions already provided!

 

[Marq]

Thanks everyone!

 

[steve case]

Try this - select the range then run the macro

Sub MakeFmla()
Dim c As Range
For Each c In Selection
    c.Formula = "=" & c.Value
Next c
End Sub

Found this thread on a Google search, and I used your solution
above - worked great as advertised (-:


For my purposes the find and replace function worked even better.


My formula sans "=" looked like this:

ÆSLOPE(B4:B5,A4:A5)​

Pick some character not found elsewhere on your page; [ALT0198] produces "Æ".


I had hundreds of SLOPE ranges that weren't in any easily copied on down
the column arrangement but it wasn't too difficult to generate them by other
means as text. Using the find and replace function "Æ" replaced with "=" worked
like a champ


I did see the post from Jonmo1 but I opted for the macro solution first.
But it put "=" in all the cells in my selected range which didn't hurt anything
but looked goofy. So on the 2nd iteration I tried the a straight find & replace
without the ="="& lingo that I didn't understand.