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

#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の１は、実際の場合の値に 変えてください。 元データのシートはコピーを取って、テストをしてください。編集の元に戻すが効かないと思いますから。