エクセルで1列に入っている数字を抜き出したい

質問

お世話になります。

エクセルの2003で１列に入っている数字（文字）を別シートで抜き出したいです。
たとえば、
Ａ列
2001
2002
2003
2001
2003
2004
2004
2001
　：
と、バラバラに長く入っています。
これを別のシートに
Ａ列
2001
2002
2003
2004
とまとめたいのです。
個数等は必要ありません。
純粋に入っている数字の種類を飛ばしたいのです。
宜しくお願いいたします。

回答No.3

tom04 · ベストアンサー

こんにちは！

データは数値だという前提で・・・

作業用の列を使うのが一番簡単だと思います。
データはA1セルからあるとします。
Sheet1のB列を作業用の列として、
B1セルに
=IF(COUNTIF(A$1:A1,A1)=1,A1,"")
という数式を入れ、これ以上データはない！というくらいしっかり下へオートフィルでコピーしておきます。

そしてSheet2のA1セルに
=IF(COUNT(Sheet1!B:B)<ROW(A1),"",SMALL(Sheet1!B:B,ROW(A1)))
という数式を入れ下へコピー！

こんなんではどうでしょうか？m（_ _）m

お礼

ありがとうございました！
また何かありましたら、宜しくお願い致します！

補足

ありがとうございました！
今後、作業用のファイルとして使用していくため
教えて頂いた方法でファイルを作成しました。
数人で使用しているのですが、時間短縮でき助かりました！

回答No.6

bunjii

>エクセルの2003で１列に入っている数字（文字）を別シートで抜き出したいです。
>純粋に入っている数字の種類を飛ばしたいのです。
Sheet1のA列に提示された文字列が設定されているとします。
作業用にB列へ単一化された文字列を数値化して表示させる条件でSheet2のA列へ文字列として抽出します。

Sheet1
B1=IF(A1="","",IF(COUNTIF(A$1:A1,A1)=1,A1*1,"")
式の中でA1*1としてある部分はVALUE(A1)を簡略化したものです。
B1セルを必要数だけ下へコピーします。

Sheet2
A1=IF(COUNT(Sheet1!A$1:A$10000)<ROW(),"",SMALL(Sheet1!B$1:B$10000,ROW())&"")
式の中でSMALL(Sheet1!B$1:B$10000,ROW())&""としてあるのはTEXT(SMALL(Sheet1!B$1:B$10000,ROW())&""),"標準")を簡略化したものです
A1セルを必要なだけ下へコピーします。

貼付画像はExcel 2002で作成しました。
Excel 2003以降のバージョンでも共通して使えますので試してください。
尚、作業用の列はB列に拘りませんが、Sheet2からの参照を間違えないようにしてください。

お礼

ありがとうございました！
また何かありましたら、宜しくお願い致します！

回答No.4

keithin

エクセル２００７以降には「重複データの削除」という便利なボタンがありますが、エクセル２００３では「フィルタオプションの設定」を使って操作します。
資料の通り操作します。
http://office.microsoft.com/ja-jp/excel-help/HA001034626.aspx

＃参考
Ｂ１に「リスト」と記入、Ｂ２以下にデータを記入
Ａ１に「初出」と記入
Ａ２に
=IF(COUNTIF($B$2:B2,B2)=1,COUNT($A$1:A1)+1,"")
と記入、リスト下端までコピー

で、数字が計算されたのをオートフィルタで抽出してコピー貼り付ければ簡単ですが、とことん手を動かすのがイヤでしたら
=VLOOKUP(ROW(A1),Sheet1!A:B,2)
と記入して以下コピーしてみるとかでも。

お礼

ありがとうございました！
また何かありましたら、宜しくお願い致します！

回答No.2

chiune

いろいろやり方はあると思いますが。
「別のシート」上に関数を使ってやるのは、不可能ではないかもしれませんが、かなり困難ですね。

ソートかけて隣の列（B列とか）でif関数を使って重複分を除く、という方法はあります。
ただ、ちゃんと理屈を覚える必要があるので、大変だと思います。

オススメはピボットテーブルを途中まで使うやり方です。

http://www.seta.media.ryukoku.ac.jp/manual/office/excel/table/pivot1.html

この↑例で言えば、A列を「学部」だと思ってやってみて下さい。
「学部」を表側にドロップするところまでやったら、理工学部、その他、国際文化学部・・・など学部名が重複しないで表示されます。
これをコピーして、貼り付ければ完了。

うまくできますように。

お礼

ありがとうございました！
また何かありましたら、宜しくお願い致します！

回答No.1

shintaro-2

簡単なのは、

列毎全部コピー
ソート
重複するデータの削除です

エクセルのバージョンにもよりますが、2007以降なら簡単に削除できます。
2003での方法は失念しました。

お礼

ありがとうございました！
また何かありましたら、宜しくお願い致します！