[[20110829234014]]　『オートフィルタ―の方法』（りせ）　ページの最後に飛ぶ

『オートフィルタ―の方法』（りせ）

 [エクセルのバージョン] Excel2007　　 [OSのバージョン] WindowsXP

 お世話になっております。
 複数(シートの数は150）のシートの一行目を、一括でオートフィルタ―したいです。
 方法を教えてください。
 よろしくお願いします。

 できる、できないは別にして、「シートの一行目を、一括でオートフィルタ―したい」という文章は
・オートフィルターを設定したい？
・絞込みワードを指定して「フィルタリングしたい」？
どちらかな？

 詳しくないけど、エクセルの操作ということなら、シートごとにしかできないんじゃないかなぁ・・・
当方、そのあたりにうといので、悩むヒマがあればＶＢＡでちょこちょこっとやっつけてしまう。

 追記）Ａ列からデータがあるならこんな感じ。

 Sub Sample()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.AutoFilterMode Then sh.AutoFilterMode = False 'Just In Case
        sh.Range("A1").AutoFilter
    Next
 End Sub

 (ぶらっと)

ぶらっとさん

 お速い回答、嬉しいです。150シート、全部一括でオートフィルタ―ができました！
 何ということでしょう、、、、ぶらっとさんは、どんな事もお解りになる、
 エクセルの匠ですね。私も例にもれず、とても助かりました。
 驚きの回答を、ありがとうございました。
 （りせ）

コメント返信：

[ 一覧(最新更新順) ]

[[20110829234014]] 『オートフィルタ―の方法』（りせ） ページの最後に飛ぶ

[[20110829234014]]　『オートフィルタ―の方法』（りせ）　ページの最後に飛ぶ