|
▼裕香 さん:
>でも・・
>>’A列の最終行の次にD列の値-1の数だけ貼り付けろ
>> Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(Cells(i, 4).Value - 1)
>どうしたらイイですか?
こちらに貼り付ける際にドジってたようです。
久しぶりに回答するとこれだよ!!
Option Explicit
Sub test()
Dim i As Long
Application.ScreenUpdating = False
For i = 2 To Range("D" & Rows.Count).End(xlUp).Row
If Cells(i, 4).Value <> 1 And Cells(i, 5).Value = "" Then
Cells(i, 4).Offset(, -3).Resize(, 5).Copy _
Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(Cells(i, 4).Value - 1)
End If
Next
Application.ScreenUpdating = False
End Sub
|
|