The macro below will run through whichever range you set as [MyRange] e.g."A1:A20" & paste the formulae into column B
Sub PasteOnlyFormulae()
For each x in range([MyRange]).cells
CurrRow = x.row
Target = "B" & CurrRow
if x.HasFormula = True then
x.copy
Range(Target).PasteSpecial xlPasteFormulas
End If
Next x
You can also do it without VBA by using Edit, Goto and clicking the Special button then choosing to select (Goto) formulas only. Then just copy and paste them.
The only drawback with that is that is will overwrite any values inbetween the formulae but if that isn't a problem then pjm's method is a darn sight easier. Store300
After copying the range of cells, instead of choosing PASTE, Choose PASTE SPECIAL. in this method you can choose what you want to paste, like FORMULA or VALUES.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.