| |
ウィル さん、こんばんわ。
>自分なりに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
こんな感じです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 08/3/8(土) 18:03 -
