|
ウィル さん、こんばんわ。
>自分なりに2つ作成してみたのですが、
>簡素化できますか?
>1つ目
>Sheets("4").Range("J4").Value = Sheets("目標").Range("B3").Value
(略)
>Sheets("3").Range("J4").Value = Sheets("目標").Range("B3").Value
For II = 1 To 12
'同じセル参照なら順番は気にしない
Worksheets(Format(II, "0")).Range("J4").Value = Worksheets("目標").Range("B3").Value
Next
>2つ目
>Sheets("まとめ").Range("d5").Value = Sheets("4").Range("j28").Value
(略)
>Sheets("まとめ").Range("q5").Value = Sheets("3").Range("j28").Value
For II = 1 To 12
'HとM列が飛んでいるのは\で調整
'12の次が1になるようにModで調整
Worksheets("まとめ").Range(5, II + 3 + (II - 1) \ 4).Value = _
Worksheets(Format((II + 2) Mod 12 + 1), "0").Range("j28").Value
Next
こんな感じです。
|
|