Ecselのシートをクリアする方法について

質問

Ecselのシートをクリアする方法について

シートの内容をクリアしたい時、下記のような記述でクリアしてます。

Range("a1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents

ただ、これですと、オートフィルタを使って絞り込みを行ってたりしますと、セルが絞り込みされた状態のままになってしまうので、

ActiveSheet.ShowAllData

を入れてからクリアしてます。でも、フィルタがかかってなかった場合に、この記述が入ってますとエラーになります。

オートフィルタを使っているか使っていないかわからなくて、その判断をした記述をするにはどのように考えたらよろしいのでしょうか？

根本的に考え方が違うのかもしれませんので、その辺も含めて教えていただけませんでしょうか。

よろしくお願いいたします。

回答No.2

keithin · ベストアンサー

フィルタを使っていてもいなくても気にせずに下記でできます。

sub macro1()
activesheet.autofiltermode = false
cells.clearcontents
end sub

で，まぁ下記のようでも出来ます。
sub macro2()
cells.clearcontents
cells.clearcontents
end sub

お礼

ごめんなさい、ネットにアクセスできなくなっててご連絡が遅くなりました。

こうやればできるんですねぇ。

ありがとうございました。

回答No.1

durarara

FilterModeプロパティをチェックするといいと思います。

お礼

すみません、ネットにアクセスできなくなっててご連絡が遅くなりました。

こういう方法があるんですねぇ。

ありがとうございました。