デバックのエラーが出ます

質問

繰り返し９０回同じ作業をさせて
I2からI91までの範囲に
にそれぞれたとえば
I2には＝SUM(D2:D49)/48の値を
I3には＝SUM(D50:D97)/48
I4には＝SUM(D98:D145)/48
I5には＝SUM(D146:D193)/48
・
　　 ・
・

I91には＝SUM(D4274:D4321)/48
というプログラムをつくりたいのですが、
FOR文でIのセル番号が１づつ増え
SUMの括弧の中の（(1):(2)）
(1)(2)ともに48づつ増えていくようにすれば出来ると思うのですがうまく
行きません。
どうかお力をお貸しください！
お願いします。

の値を出力させるプログラムを作りたいのですがデバックがでてなかなかおもうように行きません。
SUMの括弧の中のセル範囲はIが1行ふえることに
＝SUM(D50:D97)/48
とそれぞれDのところの値が48増えて行きます。

お力をお貸しください。

回答No.3

noname#140971

Me.Cells(I, 9).Formula = "=SUM(D" & S & ":D" & E & ")/48"

投稿後にNo1さんの回答を拝見。
＜文字と数字を足してもブランクは発生しない＞
を忘れていたことに気が付きました。
訂正します。

回答No.2

noname#140971

普通に書いてみました。
別にエラーは出ませんが・・・。

Private Sub CommandButton1_Click()
　　Dim I As Integer
　　Dim S As Integer
　　Dim E As Integer

　　S = -46
　　E = 1
　　For I = 2 To 91
　　　　S = S + 48
　　　　E = E + 48
　　　　Me.Cells(I, 9).Formula = "=SUM(D" & Trim(Str(S)) & ":D" & Trim(Str(E)) & ")/48"
　　Next I
End Sub

回答No.1

don9don9

ExcelのVBAですかね？
こんな感じでどうでしょう。

Dim n As Integer
For n = 1 To 90
Sheet1.Cells(n + 1, 9) = "=SUM(D" & 48 * n - 46 & ":D" & 48 * n + 1 & ")/48"
Next

お礼

すいません感謝のお礼の文が補足のところに間違って書き込んでしまいました。

補足

皆さんありがとうございました。
エクセルのVBAです。
きちんと動きました。
初歩的な質問ですいません。
セル範囲の指定の仕方が良くわからなかったのですが
すっきりしました。