|
こんにちは^^
>”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
If文が閉じられてないようです。
For文自体は問題ないです。入れ子もOKです。
|
|