|
▼とまと さん:
>ちょっと暇だったのでまとめてみました。
>テストとかしてないので動くかわかりません。
>参考にしてください。
>
>Sub test()
>
> For a = 9 To 28
> If a > Worksheets.Count Then Exit For
>
> For b = 0 To 34 Step 5
> For m = 0 To 5
> Sheets(a).Range("A" & m * 6 + 6 & ":E" & m * 6 + 10).Offset(, b).Copy _
> Sheets("日程表データベース").Range("D" & m * 35 + 3).Offset(, a * 10 - 90).Offset(b)
> Next
> Next b
>
> Application.CutCopyMode = False
> Sheets("日程表データベース").Select
> Range("A3").Select
> Next a
>
>End Sub
お返事が遅くなり、申し訳ありません。
上記ので動作確認してみます。
ありがとうございました。
動いた場合、動かなかった場合に関わらず、その結果に関してはもう一度お返事いたします。
|
|