|
始めて質問箱に投稿します。
最近はじめたばかりの初心者なのでどうぞ、よろしくお願いいたします。
さっそくですが、エクセル表のセルに表示してある回数だけ、
その下に行を挿入したくて、下のモジュールを書いたのですが、
”NEXTに対するFOR がありません”と出ます。
For Nextの重複は出来ないのでしょうか
Sub 行挿入()
Dim MyLast As Long
Dim i As Integer
Dim j As Integer
Dim a As Integer
MyLast = Worksheets("リンクページ").Range("H65536").End(xlUp).Row
a = Worksheets("リンクページ").Cells(i, 8).Value - 1
For i = 2 To MyLast Step -1
'a の回数貼り付けする
If a <> 0 Then
For j = 1 To a
MyRow = Worksheets("リンクページ").Range("A" & MyLast).EnterRow
Worksheets("リンクページ").Range(MyRow).Copy
Worksheets("リンクページ").Range(MyRow).Offset(1).Insert
Next j
Next i
End Sub
|
|