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

質問

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

回答No.2

imogasi · ベストアンサー

#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

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

お礼

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

補足

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