オートフィルタの抽出条件

EXCEL97です
住所　番地　名前
東京　２丁目　安部
大阪　３丁目　井上
福岡　５丁目　宇田
東京　６丁目　江田
大阪　７丁目　奥田
福岡　９丁目　加賀

といったリストにオートフィルタをかけて
下記のように東京の人だけを表示させています

住所　番地　名前
東京　２丁目　安部
東京　６丁目　江田

この状態で「住所」ラベルの下に出る「東京」という文字を
このリストの上部に表示させることはできますでしょうか？
現在東京の人だけを表示させているということがわかるように
抽出条件を表示したいのです
（福岡、大阪を選択した場合も同様に表示させたいです）

お教えください　どうぞよろしくお願いいたします

No.3 ベストアンサー 回答者： SAKURAMYLOVE 回答日時： 2004/08/25 17:02

小細工が必要ですが、以下の方法ではいかがでしょうか。

(1)以下のセルに項目名を入力
A2=No.、B2=住所、C2=番地、D2=名前
(2)3行目以下データ入力（仮に10行までの入力とする）
　No.は２行目から1,2,3,・・・と採番します（これがみそです）
(3)以下の関数入力
　B1=INDIRECT("B"&SUBTOTAL(5,A3:A10)+2)
(4)A2～D2を選択してオートフィルタをかける
　（A2～D2に▼マーク）

この回答へのお礼

早速試してみましたところ希望通りの結果になりました
no.の連番は行ナンバーとあわせて3,4,5・・・として
B1=INDIRECT("B"&SUBTOTAL(5,A3:A10))
で済ませて、説明しやすくなりました
感謝いたします
ほんとうにありがとうございました

お礼日時：2004/08/25 20:09

No.2 回答者： s_yoshi_6 回答日時： 2004/08/25 16:31

作業列を使いますが、例えば下記の方法ではいかがでしょうか。

Ｂ列の３行目から１００行目までに住所が入っているとして、Ｂ１０１は空白、またＢ２には「住所」という見出しが入っており、Ｂ１にオートフィルタで抽出条件に指定した文字を表示させるとした場合、

1）Ａ列を作業列として、Ａ３からＡ１０１（データ入力行より１つ下）までに、１～９９の通し番号を入力しておく。
2）Ｂ１に　=VLOOKUP(SUBTOTAL(4,A3:A101),A3:B101,2)　と入力。
3）Ｂ２からＢ１００までを選択してオートフィルタ

とすると、オートフィルタをかけたときに、抽出条件に指定した住所がＢ１に表示されると思います。Ａ列を見せたくなければ、Ａ列を非表示にされても構わないと思います。

なお上記の場合、すべてを表示したときにＢ１には「０」が表示されますので、それを表示させないためには、

・ツール→オプション→表示タブの「ゼロ値」のチェックを外す
・Ｂ１０１にスペースをあらかじめ入力しておく
・Ｂ１の式を
=IF(VLOOKUP(SUBTOTAL(4,A3:A101),A3:B101,2)=0,"",VLOOKUP(SUBTOTAL(4,A3:A101),A3:B101,2))
　とする
　
などの方法を使われると良いと思います。

この回答へのお礼

回答ありがとうございました
参考にさせていただきます
渡す相手に説明しなくてはならないため
式が簡素な#3の方の方法を取らせていただきました

お礼日時：2004/08/25 20:10

No.1 回答者： aa109 回答日時： 2004/08/25 14:23

VBAなら可能です

2列目に項目があるシートにおいて
「東京」がA列だとすると
この結果をa1に表示する場合

Range("a60000").Select
Selection.End(xlUp).Select

Range("a1").Value = Selection.Value

で取得できます
どのようなイベントでこれを実行するかは
ご自身のスタイルに合わせれば良いでしょう
また、もうひとつの方位としては
a1セルに東京を含むリストを持った
コンボボックスを配置し
ここからフィルターをかける
プロシージャを実行すればOKです

この回答への補足

早速の回答ありがとうございます

「ＶＢＡなら」ということは「ＶＢＡでないと」ということですよね？
つくったファイルを他の人に渡して作業させる関係で
できればＶＢＡを使わずに済ませたいのです・・・

二つ目の方法をとったとしても
プロシージャでないと無理でしょうか？

補足日時：2004/08/25 14:26