VBA初心者です。空白の行を詰めたいです。

質問

こんにちは。
お仕事上、必要になりましてぜひともご教授願います。

(1)Ａ列に　もぐら　と書いていない行は全部消すＶＢＡの式
(2)Ａ列に　もぐら　と書いていない1～500の行は全部消すＶＢＡの式
(3)Ａ列が　空白の200～400行を全て消すＶＢＡの式

を教えてください。似たような式をwebで見つけたのですが
イマイチ応用ができませぬ。それと実行に時間も
かかってしまうので、ぜひとも解りやすく宜しくお願い致します。
はあ、今夜も徹夜かあ。

回答No.1

zap35 · ベストアンサー

（２）は以下の通りです
Sub Macro()
Dim idx As Integer
　Application.ScreenUpdating = False
　For idx = 500 To 1 Step -1
　　If Cells(idx, "A") <> "もぐら" Then
　　　Rows(idx).Delete
　　End If
　Next idx
　Application.ScreenUpdating = True
End Sub

（１）はＡ列の最終行を
　Range("A65536").End(xlUp).Row
で取得しましょう。
（３）は考えてみて下さい。すぐに分かるはずです。

お礼

ご回答ありがとうございました!!
非情に仕事がはかどることになりました。
zap35さんに感謝です!!

回答No.2

rollback

お疲れ様です。
必要条件が上記だけならば、VBAは必要ないかと思います。

(1)一番左に列を追加
(2)追加した列に１、２、３・・・とオートフィルで行ＮＯを作成
(3)ツールバーの「データ」→「フィルタ」→「オートフィルタ」を押下
(4)オプションで「もぐら」以外にする
(5)消したいものを削除

で、(1)～(3)全て可能かと思われます。

　これではダメですか？

お礼

なるほど、そのようにもできるのですね。
頭の発想が鈍いなあ・・・・

ありがとうございます!!