エクセル 行の挿入
エクセルの行の挿入方法を教えてください。
http://okwave.jp/qa1095365.html?rel=innerHtml&p=bottom&l=1
上記の質問のマクロをコピーし、少し加工して使用させていただいてます。
Sub Macro1()
Dim lngCnt As Long '処理行のカウント
Dim intCnt As Integer '挿入行数セット
''初期行セット
lngCnt = 5
'' 処理行のD列に文字がなくなるまで繰り返す
Do Until Cells(lngCnt, 4) = vbNullString
''挿入行数セット
intCnt = Cells(lngCnt, 4) + 1
''挿入行分繰り返す
Do Until intCnt <= 0
''次の行に進む
lngCnt = lngCnt + 1
''行の選択
Rows(lngCnt & ":" & lngCnt).Select
''行の追加
Selection.Insert Shift:=xlDown
''１行追加したので挿入行数から１引く
intCnt = intCnt - 1
Loop
''処理行数カウントアップ
lngCnt = lngCnt + 1
''1シートの最大行数を超えたか？
If lngCnt > 65536 Then
MsgBox "1シートの最大行数を超えました"
Exit Do
End If
Loop
''A1を選択
Range("A1").Select
End Sub
このマクロでは
'' 処理行のD列に文字がなくなるまで繰り返す
Do Until Cells(lngCnt, 4) = vbNullString
なので、一行抜けてしまうとマクロが止まってしまいます。
これをD行に数字が入っている所はすべて増えるように？止まらないようにしたいのです。
どうすればいいでしょう？
宜しくお願いします。
