エクセル2000 規則に従った行の削除

質問

エクセルの行削除について、次の規則で行いたいと思います。

規則
35　　削除する行
36　　削除する行
37　　削除する行
38　　削除する行

39～71　残す行（33行）
72～75　削除する行(4行）

以下、33行残し、4行削除を繰り返します。

この操作をVBAを使って行いたいのですが、ご存知の方がいらっしゃいましたらよろしくお願いします。

回答No.1

CaveatEmptor · ベストアンサー

処理範囲が何行かわからないので10000行目までということで。

Sub LineDelete()
For i = 35 To 10000 Step 37 - 4
　Range(Rows(i), Rows(i + 3)).Delete
Next
End Sub

以上を試してみてください。

ただし削除された行は復活させることはできませんので、慎重にしてください。

削除でなく、非表示なら以下でできます。

Sub LineDelete()
For i = 35 To 10000 Step 37
　Range(Rows(i), Rows(i + 3)).Hidden = True
Next
End Sub

お礼

早速のご回答ありがとうございます。すべてが解決しました。今後ともご教授賜りますようお願い申し上げます。