新生活を充実させるための「こだわり」を取材!!

いつもお世話になっております。
添付ファイルのようにB列からH列まで、
行は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

「2行づつ行を削除」の質問画像

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

  • うーん・・・

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

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

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

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

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

    No.3の回答に寄せられた補足コメントです。 補足日時:2021/11/25 20:31
教えて!goo グレード

A 回答 (3件)

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

この回答への補足あり
    • good
    • 0
この回答へのお礼

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

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

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


背景色が黄色でない行を削除する方法もあります。
そのような方法はだめなのでしょうか。
この回答への補足あり
    • good
    • 0
この回答へのお礼

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

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

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

でいかがでしょうか。
この回答への補足あり
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング