セルに数式値を追加するにはどうすればよいですか？

Question

私は価格表を作ることができるようにいくつかのデータをフォーマットする小さなマクロを動こうとしています。情報をExcelに置くとうまくいきますが、ノートのいくつかが次の行に表示されます。これは、セルの内容を取り、その上にセルを追加することになっています。私の型の不一致エラーを与える

=- 4-7 

（これは実際に式ではない、それはちょうど1のように見える） ：

Sub Macro1() 
    For i = 8 To 100000 
     If Left(ActiveSheet.Cells(i + 1, 1).Value, 2) = "AC" Or ActiveSheet.Cells(i + 1, 1).Value = vbNullString Then 
     Else 
      If Left(ActiveSheet.Cells(i + 1, 1).Value, 4) = "Page" Then 
       ActiveSheet.Rows(i + 1).Delete shift:=xlUp 
      Else 
       Dim tempString As Variant 
       tempString = ActiveSheet.Cells(i + 1, 1).Value 
       ActiveSheet.Cells(i, 1).Value = ActiveSheet.Cells(i, 1).Value + " " + tempString 
       ActiveSheet.Rows(i + 1).Delete shift:=xlUp 
       i = i - 1 
      End If 
     End If 
    Next 
End Sub 

私は、セルの値に実行するまで、それだけで正常に動作します。セルの内容を指定する別の方法を使用する必要がありますか？また、範囲を指定するより良い方法があるかもしれませんが、実際にはA列の下に行きたいと思います。

Answer 1

ただ、これは、それが一定の、またはExcelが、それは必要に応じて、あることを考えて、「式」の文字列定数の文字列を返します代わりに.Value

の.Formulaを使用しています。