EXCEL VBAでのフィルタ設定

質問

今、会社を辞めて行った人が作ったEXCEL VBAの改造を実施しているのですが、VBAの経験がないため、非常に困っています。

今回改造しようとしている内容は、一覧表示されたシートにEXCELのデータメニューから行うフィルタ設定を、VBAプログラミングで実施したいのです。

一応、EXCEL VBAの参考書があるので見ながら改造を行ったのですが、
一箇所だけうまくいきません。

何がおかしいのかもよくわかりませんので、達人の皆様にアドバイスをしていただきたいです。

Sheets(sheet1).Select
If (Range("A2").Value <> "") Then
Range("A1:K1000").AdvancedFilter Action:=xlFilterInPlace
ActiveSheet.ShowAllData
End If

このActiveSheet.ShowAllDataというところでエラーが出てしまいます。

どうか、宜しく御願いいたします。

回答No.1

higekuman · ベストアンサー

オートフィルタによって、ある条件のものを抽出している状態＝ある条件じゃないものが隠されている状態、のときだとエラーになりません。
要は、オートフィルターによって隠されているものをすべて表示すものなので、オートフィルタで何も抽出していない＝すべてのものが表示されている状態だと、オートフィルタによって隠れているものがない＝ShowAllDateで扱うものがない、ということでエラーになっているんだと思います。