使用VBA在公式前面插入撇号

Question

I am able to find the cells which contain the formulas, and even can select them. Now i want to insert apostrophe in front of the formulas of the selected cells.

This is my code :

Sub FindFormulaCells()
Dim inputRange As Range
Set inputRange = Application.InputBox("Select a Range:", "Insert Apostrophe in front of formula", , , , , , 8)

If inputRange Is Nothing Then Exit Sub
Set inputRange = inputRange.SpecialCells(xlCellTypeFormulas, 23)
inputRange.Select
End Sub

Any help.

Answer 1

Never use Select in code

Sub FindFormulaCells()
Dim inputRange As Range
Set inputRange = Application.InputBox("Select a Range:", "Insert Apostrophe in front of formula", , , , , , 8)

If inputRange Is Nothing Then Exit Sub
Set inputRange = inputRange.SpecialCells(xlCellTypeFormulas, 23)
dim c as range
for each c in inputRange
 c.formula = "'" & c.formula
next c
End Sub