|
デバックでてしまいましたが・・・。
ちなみに、NO1、NO2列とも数字は規則性がございません。
ご対処よろしくお願い申し上げます。
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>以下のようにする為のマクロはどうしたらいいのでしょうか?
>
>以下のような感じでできると思います。
>ただし、Excelの最大行を超えたときの処理などは考慮していません。
>
>Option Explicit
>Sub Macro1()
> Dim RowNo, RowNo2 As Long
>
> RowNo = 1
> Do While Cells(RowNo, 1).Value <> ""
> Rows(RowNo).Copy
> Rows(RowNo + 1 & ":" & RowNo + Cells(RowNo, 2) - 1).Insert Shift:=xlDown
> For RowNo2 = 1 To Cells(RowNo, 2)
> Cells(RowNo + RowNo2 - 1, 3) = RowNo2
> Next
>
> RowNo = RowNo + Cells(RowNo, 2)
> Loop
> Application.CutCopyMode = False
> Range("A1").Select
>End Sub
|
|