質問: excel vba a列が特定の値以外の場合、その行を削除 教えてください。 a列の値が特定の値以外の場合、 その行を行ごと削除する方法はありますでしょうか? a列には、 1 タイトル 2 (ブランク) 3 a 4 a 5 b 6 b 7 c 8 c 9 d 10 d ~というふうに2000行辺りまで続きます 例えば、a列の3行目以降の値が b 以外の場合、 3・4・7・8・9・10行を行ごと削除する、ということです。 あまり説明が上手でなくて申し訳ありませんが、よろしくお願いします。
回答: ではvbaのサンプルです。コメントも入れておきました。 sub test01() with activesheet 'アクティブなシートについて x = .usedrange.cells(.usedrange.count).row 'xに最終行を取得 for i = x to 3 step -1 '最終行から3行目まで下から順に if .cells(i, 1) <> "b" then .rows(i).delete 'a列が"b"でなかったら削除 next '繰り返し end with end sub