特定の条件の時に行を挿入したい

EXCEL2000使っています。A列データがあるとして、A3セルに特定の数字（例えば1）があるときは、その上の行、このときは　2行に１行挿入したいのですが、各行ごとに挿入するのは大変なので、簡単に、できるだけ一度に挿入する方法はないですか？

No.2 ベストアンサー 回答者： imogasi 回答日時：2003/10/08 06:37

#1です。

ＶＢＡで
Sub test01()
i = 1
p01:
If Cells(i, "A") = "" Then Exit Sub
If Cells(i, "A") = 1 Then
Cells(i, "A").Insert (xlDown)
i = i + 1
End If
i = i + 1
GoTo p01
End Sub
少数例テストでは上手く行きましたが。
データ行の中間に空白行がないこと。
If Cells(i, "A") = 1 Thenの１は、実際の場合の値に
変えてください。
元データのシートはコピーを取って、テストをしてください。編集の元に戻すが効かないと思いますから。

No.1 回答者： imogasi 回答日時：2003/10/06 23:07

エクセルでの方法は大別して

（１）操作で
（２）関数で
（３）書式設定・条件付書式・入力規則で
（４）備わったウイザード的操作（フィルタなど）
（５）ＶＢＡで
などに分かれると思います。
本件では（１）は面倒（３）（４）は該当せず対象外でしょう。
すると（２）での解決をお望みでしょうが
関数と言うものは、行挿入や削除や文字・セルの色づけは出来ません。値を対象にするものです。規則性があれば別シートのしかるべき行にデータを持ってきて、新表を作成できるケースはあります。
結局残るはＶＢＡですが、お望みですか。

この回答への補足

是非ともお願いします。VBAも今勉強中です。

補足日時：2003/10/07 23:42

この回答へのお礼

お返事が遅くなりました。できました。欲を言えば、B列からE列まで一度に挿入するってときはB：Eってやったらできなかったのですが、何か方法はないですか？

お礼日時：2003/10/14 09:34