2行づつ行を削除

いつもお世話になっております。
添付ファイルのようにＢ列からＨ列まで、
行は300行までデータがあります。
やりたいこと
黄色い部分以外のデータを削除したいのです。
2行づつ削除したいのです。


これだと　開始位置の行が3からではなくてはなりません。
If i Mod 3 <> 0　以外での方法
わかる方おしえてくれませんでしょうか

Dim i
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If i Mod 3 <> 0 Then Cells(i, 2).EntireRow.Delete
Next

質問者からの補足コメント

• 

  If (i - 2) Mod 3 <> 0 　ではない方法というのは
  ないものなのでしょうか modを使用しない方法

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/11/25 20:18

• 

  わかりやすいとおもい
  黄色にしました。

  No.2の回答に寄せられた補足コメントです。 補足日時：2021/11/25 20:29

• 

  ＭＯＤ
  が正直わたしとしては
  わかりにくいので。
  すみません

  No.3の回答に寄せられた補足コメントです。 補足日時：2021/11/25 20:31

No.3 回答者： tatsumaru77 回答日時： 2021/11/25 20:29

何故、modを使う方法をしたくないのか、その理由等を説明していただけると良い回答が得られやすくなるかと思います。

この回答へのお礼

ありがとうございました。

お礼日時：2021/11/25 20:41

No.2 回答者： tatsumaru77 回答日時： 2021/11/25 20:27

削除しない行は黄色になっていますが、本当にそのようになっているなら、

背景色が黄色でない行を削除する方法もあります。
そのような方法はだめなのでしょうか。

この回答へのお礼

ありがとうございました。

お礼日時：2021/11/25 20:41

No.1 回答者： tatsumaru77 回答日時： 2021/11/25 20:16

For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1

If (i - 2) Mod 3 <> 0 Then Cells(i, 2).EntireRow.Delete
Next

でいかがでしょうか。

この回答へのお礼

ありがとうございました。

お礼日時：2021/11/25 20:41