MOUGのMLでの質問をもとに作ってみました。
あるシートで選択されたセル範囲のデータ
（連続していれば何列何行でも可）
を重複するものは排除し、新規シートのA列に
表示し、ソートするというものです。
ちょうどオートフィルターのプルダウンリストを
取得する感じです。
複数行に対応しているというのがミソかもしれませんね。
使い方は、ファイルを解凍後、Excelを開いて
ツール→アドイン→参照で
解凍したAｆList.xlaを開いてください。
メニューバーの右端に「AｆList」のボタンができます。
抽出対象のセル範囲を選択してから
（連続していれば複数列可）
ボタンをクリックすると新規シートにリストが作成されます。
メニューバーのボタンが邪魔なときは
ツール→アドインからAｆListのチェックをはずせば
ボタンは消えて、次回からは表示されなくなります。
なお、プロジェクトは保護してありますが、感想等を
ふくめて、メールをいただいた方にはパスワードを
お送りします。
メールアドレス
b_kw@pop01.odn.ne.jp
または
k-watanabe@kureha-gohsen.co.jp
また、VBA関係のHPも開いています。よろしければ
どうぞ訪問してください
「快のページ」
http://www.geocities.co.jp/SiliconValley-Bay/2399/
・このアドインはフリーウエアですが著作権は放棄していません。
ファイルサイズ：10192 byte
