A1に関数を入力する場合、以下の様にします。 Sub Sample65() Range("A1").Formula = "=SUM(B1:B10)" End Sub また、数式を指定の範囲に相対参照で一回で入力も出来ます。 以下はA1:A10の範囲にぞれぞれ、=B1、=B2・・・と入力していきます。 Sub Sample65a() Range("A1:A10").Formula = "=B1" End Sub