move formulas to a different column

  • Thread starter Thread starter indu aronson
  • Start date Start date
I

indu aronson

I have a lot of cells with formulas in Column J. I would
like to move any cell that has a formula to Column L. The
formulas are all over the place and are not contiguous.
Moreover, the cells that have formulas are also formatted.
Is there any way to identify cells that have formulas in
the range (J2:J1600) and move those to the appropriate
cell in column L
 
set rng = Range("J2:J1600").SpecialCells(xlFormulas)

for each cell in rng
cells(cell.row,"L").formula = cell.formula
cell.ClearContents
Next
 
Back
Top