|
どもども
質問を読み飛ばしてました。すみません
これでOKかな
Sub test()
Dim lngRow As Long
Dim r As Range
lngRow = 8
Set r = Worksheets("Sheet1").Range("a1:e2")
With Worksheets("Sheet2")
While .Cells(lngRow, 1).Value <> ""
.Range(.Cells(lngRow, 1), .Cells(lngRow + 1, 5)).Insert Shift:=xlDown
r.Copy Destination:=.Cells(lngRow, 1)
lngRow = lngRow + 7
Wend
End With
Set r = Nothing
End Sub
With Worksheets("Sheet2")
・・・・
End With
というふうにすると、With〜Endの間はの処理は、Sheet2に対して行われます。
前のは、Sheet1にしてて、コピー元の範囲を変数に入れるのも、With〜End Withの間にいれてたから、コピー元もコピー先も同じ、Sheet1になってました。
|
|