[[20210821193825]]　『偶数(奇数)行を削除するマクロを教えて下さい』（aaa）　ページの最後に飛ぶ

『偶数(奇数)行を削除するマクロを教えて下さい』（aaa）

偶数(奇数)行を削除するマクロを教えて下さい
よろしくおねがいします

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 こんばんは　＾＾
2で割って[　Mod　]、余りがゼロなら、偶数
以外は　奇数。とすればいいようですよ。。。←多分。＾＾；
m(_ _)m
（隠居Ｚ） 2021/08/21(土) 19:50

 追記
ISODD関数・ISEVEN関数
とか
使うのも有かと。。。m(_ _)m
（隠居Ｚ） 2021/08/21(土) 19:54

コメントありがとうございます
具体的にはどうすればよろしいでしょうか
（aaa） 2021/08/21(土) 20:24

横からですがどこで詰まっているんですか？
単純に行番号が偶数(奇数)なら削除というのを繰り返せばいいとおもうんですが・・・

詰まっている個所を"具体的"に示されてると、たくさんのアドバイスが得られるんじゃないでしょうか？

（もこな２） 2021/08/21(土) 20:35

まずは、これを試してみてください。
そのうえで、どうしたいか具体的に説明していただけますか。

 Sub test()
    Dim k As Long

    For k = 10 To 2 Step -2
        Rows(k).Delete
    Next

 End Sub

（マナ） 2021/08/21(土) 20:45

コメントありがとうございます
うまくできましたありがとうございます
（aaa） 2021/08/23(月) 19:54

コメント返信：