| |
▼HAM さん：
>▼yuna さん：
>こんにちは私も教わる立場なのでもっといい方法があると思いますが
>このようなやり方はいかがでしょうか
>
>Dim R, Endrow, R_count As Long
>Endrow = Cells(Rows.Count, 1).End(xlUp).Row
>R_count = 0
> For R = 5 To Endrow Step 4
> Rows(R + R_count - 1).Copy
> Rows(R + R_count).Insert
> R_count = R_count + 1
> Endrow = Endrow + 1
> Next R
早速の回答をありがとうございます。
私の説明が悪くて申し訳ありません。
下記のような表があり、5行目や8行目、11行目の週平均勤務時間には計算式が入っており、この5行目の計算式が入っている行をコピーし、8行目、11行目、14行目、17行目、等の4行下に挿入して繰り返し貼り付けを行いたいです。
よろしくお願いいたします。
A B C D D
1
2 コード 氏名 勤務時間 2009/03 2009/04
3 123 A 出勤日 21 16
4 労働時間 203.67 139
5 週平均勤務時間 48.7 43.5
6 456 B 出勤日 20 16
7 労働時間 176.67 117.34
8 週平均勤務時間 21.5 36.7
9 789 C 出勤日 23 17
10 労働時間 179 125.5
11 週平均勤務時間 39 37
|
|
yuna
- 09/4/14(火) 16:39 -
