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

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

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

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

No.1 ベストアンサー 回答者： zap35 回答日時： 2007/03/20 00:43

（２）は以下の通りです

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さんに感謝です!!

お礼日時：2007/03/20 22:37

No.2 回答者： rollback 回答日時： 2007/03/20 01:03

お疲れ様です。

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

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

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


　これではダメですか？

この回答へのお礼

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

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

お礼日時：2007/03/20 22:53