Excelﾏｸﾛ 同列内で複数の数式を繰り返す方法

色々調べてみたのですが該当するものが見当たらず、ご存知の方がいらっしゃいましたら教え下さい。

同じ列内で連続する数式を同じ項目にまとめて繰り返したいのですが、そのようなことは可能でしょうか？　画像の赤枠に入力されている数式を同列の赤枠内にｺﾋﾟｰしたいｲﾒｰｼﾞです。
合計１にある日付欄は空欄のままです。
（参考）各日の単価についてはFor~Nextでﾏｸﾛを組みました。
------------------------------------------------------------------------------------------
◎作成したﾏｸﾛ
Sub 週ごとの合計()

Range("J3:J4").Formula = "=SUM(C3:I3)"
Range("J5").Formula = "=J3/J4"
Range("J5").NumberFormat = "####.0"単価
------------------------------------------------------------------------------------------
(参考)　客単価のﾏｸﾛ
Sub 客単価()

Dim i As Long
Dim j As Long

For i = 3 To 9
For j = 3 To 21 Step 4

Cells(j + 2, i) = Cells(j, i) / Cells(j + 1, i)
Cells(j + 2, i).NumberFormat = "####.0" '少数点1桁で示します。
Cells(j + 2, i).HorizontalAlignment = xlRight '右寄せにします。

Next j
Next i

End Sub

No.5 ベストアンサー 回答者： Qchan1962 回答日時： 2022/05/22 14:30

こんにちは

J2が空白ならそれを含め、コピペでどうかな
Range("J3:J4").Formula = "=SUM(C3:I3)"
Range("J5").Formula = "=J3/J4"
Range("J5").NumberFormat = "####.0"単価
Range("J2:J5").Copy Range("J6:J25")

見落とすところでしたVBEでは　単価は　'単価にして

この回答へのお礼

ご返答ありがとうございます。
とてもｼﾝﾌﾟﾙでわかりやすいです。

お礼日時：2022/05/22 15:02

No.4 回答者： zongai 回答日時： 2022/05/22 14:30

No.3も間違い。

あぁ、ごめんなさい。
元の式の

For j = 3 To 21 Step 4

ここ、　「To 2」にしちゃってる。
「To 21」に戻してください。

この回答へのお礼

早々にご返答いただきありがとうございます。
丁寧なﾏｸﾛで勉強になりました！

お礼日時：2022/05/22 14:54

No.3 回答者： zongai 回答日時： 2022/05/22 14:27

No.1はダメ！間違い！失礼しました。

こっちでお試しを。

Sub 客単価()
　Dim i As Long
　Dim j As Long
　Dim lastRow As Long

　For i = 3 To 9
　　For j = 3 To 2 Step 4
　　　Cells(j + 2, i).Select
　　　Cells(j + 2, i) = Cells(j, i) / Cells(j + 1, i)
　　　Cells(j + 2, i).NumberFormat = "####.0" '少数点1桁で示します。
　　　Cells(j + 2, i).HorizontalAlignment = xlRight '右寄せにします。
　　Next j
　Next i
　
　For j = 3 To 25 Step 4
　　Cells(j, "J").Formula = "=SUM(RC[-7]:RC[-1])"
　　Cells(j + 1, "J").Formula = "=SUM(RC[-7]:RC[-1])"
　　Cells(j + 2, "J").Formula = "=R[-2]C/R[-1]C"
　　Cells(j + 2, "J").NumberFormat = "####.0"
　Next
End Sub

No.2 回答者： fujillin 回答日時： 2022/05/22 14:24

こんにちは

＞各日の単価についてはFor~Nextでﾏｸﾛを組みました。
それができているのなら、同じようにすれば良いのでは？
縦にコピペするだけなので、ご提示のものよりも簡単です。

J3:J5に式等が設定されているものとして・・

For i = 7 To 23 Step 4
　Range("J3:J5").Copy Range("J" & i)
Next i

この回答へのお礼

ご返答ありがとうございます。
色々な方法があるのですね。
勉強になりました！

お礼日時：2022/05/22 15:02

No.1 回答者： zongai 回答日時： 2022/05/22 14:19

こういう感じかな。

Sub 客単価()
　Dim i As Long
　Dim j As Long
　Dim lastRow As Long
　For i = 3 To 9
　　For j = 3 To 21 Step 4
　　　Cells(j + 2, i).Select
　　　Cells(j + 2, i) = Cells(j, i) / Cells(j + 1, i)
　　　Cells(j + 2, i).NumberFormat = "####.0" '少数点1桁で示します。
　　　Cells(j + 2, i).HorizontalAlignment = xlRight '右寄せにします。
　　　'↓追加----
　　　Cells(j, "J").Formula = "=SUM(RC[-7]:RC[-1])"
　　　Cells(j + 1, "J").Formula = "=SUM(RC[-7]:RC[-1])"
　　　Cells(j + 2, "J").Formula = "=R[-2]C/R[-1]C"
　　　Cells(j + 2, "J").NumberFormat = "####.0" '単価
　　　'↑追加----
　　Next j
　Next i
End Sub