| |
▼つん さん：
>おはようございます。
>
>なんか最初の表と全然違うな＾＾；
>どうもはっきりしないところもありますが・・・
>要するにこういう事？
>
>「労働時間」の行の下に、「週平均労働時間」をコピーしていく。
>
>Sub これでええんか()
>
> Dim lngLast As Long
> Dim i As Long
>
> lngLast = Cells(Rows.Count, 1).End(xlUp).Row
>
> For i = lngLast To 6 Step -1
> If Cells(i, 1).Value = "労働時間" Then
> Rows(5).Copy
> Rows(i + 1).Insert Shift:=xlDown
> End If
> Next i
>
>End Sub
ありがとうございました！
最初の表と違ってしまい、申し訳ありません。
コピーした行を繰り返しコピーし、挿入する表が
もう一つありまして、この表の方がわかりやすい
かと思い、ＵＰしました。
返って分かりにくくして、本当に申し訳ありません
でした。
繰り返すコードが分からなくて、今回は皆さんに教えて頂いて
大変助かりました！！！
ありがとうございました！
|
|
yuna
- 09/4/15(水) 10:28 -
