重複データの抽出

重複した数字のデータを抽出してまとめたいのですが教えていただけないでしょうか？
例えば
Ａ列　　　　Ｂ列　　
1245　　　　
1365　　　　
1245
1398
1365
1155
1245
この表を
　　　　
Ａ列　　　　Ｂ列　　
1245　　　　1245
1365　　　　1365
1245　　　　1398
1398　　　　1155
1365
1155
1245
のようにまとめたい

Ａ列の重複したデータを抽出しＢ列にまとめたいのですが、なるべく関数でやりたいのですが、良い方法をお願いいたします。

No.8 回答者： imogasi 回答日時： 2006/06/06 23:17

ＯＫＷＡＶＥでimogasi方式で照会してもらえば、似た質問が沢山あります。

Ａ２：Ａ８
Ａ列　　Ｂ列　　　Ｅ列
124512451
136513652
12451398
139811553
1365#N/A
11554
1245
Ｅ２に
=IF(COUNTIF($A$2:A2,A2)=1,MAX($E$1:E1)+1,"")
と入れてＥ８まで式を複写します。
Ａ列番号について、初出の行に連番を振ります。
Ｂ列Ｂ２に行って
=IF(ROW()-1>MAX($E$1:$E$100),"",INDEX($A$2:$A$100,MATCH(ROW()-1,$E$2:$E$100,0),1))
と入れてＥ列の最大数４行だけ式を複写します。

No.7 回答者： 134 回答日時： 2006/06/06 12:19

もとい

Ａ２セルに入れる関数は
=if(B2="","",if(countif($B$2:$B$8,B2)>1,"",max($A$1:a1)+1))

のほうが、よい…かもしれません。

No.6 回答者： 134 回答日時： 2006/06/06 12:15

関数にて…

Ａ列を計算用に使用させていただきます。
なので、Ｂ列に入力用のデータが列記されているとさせてください。

また、１行目は見出しで、２行目からデータが入っているとします。

抽出は…　Ｃ列　でいいですか？

上記前提の上で…

Ａ２セルに
=if(countif($B$2:$B$8,B2)>1,"",max($A$1:a1)+1)
と入力します。

Ｃ２セルに
=if(iserror(vlookup(row()-1,$A$2:$B$8,2,0)),"",vlookup(row()-1,$A$2:$B$8,2,0))

と入力

Ａ２の関数とＣ２の関数を下までコピーする

という方法は、いかがでしょうか

No.5 回答者： KenKen_SP 回答日時： 2006/06/06 10:49

こんにちは。

KenKen_SP です。

【注意】
・セルの選択範囲は単一列のみ
・ブランクセルも含む

Sub Sample()

　　If UCase$(TypeName(Selection)) <> "RANGE" Then Exit Sub
　　If Selection.Columns.Count = 1 Then
　　　　Selection.AdvancedFilter _
　　　　　　　　　Action:=xlFilterCopy, _
　　　　　　　　　CopyToRange:=Selection.Cells(1).Offset(0, 1), _
　　　　　　　　　Unique:=True
　　End If

End Sub


ブランクを含めないとか、Selection が複数列の場合に対応するなら、
別ロジックになります。Collection とか Dictionary とか。

No.4 回答者： mshr1962 回答日時： 2006/06/06 09:11

関数にこだわらないなら

A列の先頭行（A1）にセルを挿入して項目名を入力して下記の様にする。
Ａ列　　　　Ｂ列　　
項目　　　　抽出
1245　　　　
1365　　　　
1245
1398
1365
1155
1245

「データ」「フィルタ」「フィルタオプションの設定」
「指定した範囲」を●
「リスト範囲」「$A$1:$A$8」
「抽出範囲」「$B$2」
「重複するレコードは無視する」にチェックして「OK」を押す。

この回答への補足

関数では限界があるみたいなので、ＶＡＢに挑戦してみたいのですが、１度もやったことがないのですが、難しいでしょうか？

補足日時：2006/06/06 09:50

この回答へのお礼

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

お礼日時：2006/06/06 09:50

No.3 回答者： ao777 回答日時： 2006/06/06 09:02

少し無理やりですが、B1に下記の関数を入れて、

後はオートフィルで↓にコピーしてください。

=IF(COUNTIF($A$1:$A$7,A1)>=2,A1,"")

これが関数での限界だと思います。
ただこれだと、空白のセルができるので、
思ってる物と違うかも。。

この回答へのお礼

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

お礼日時：2006/06/06 09:46

No.2 回答者： gucchi-you 回答日時： 2006/06/06 08:54

#1です。

やってみました。
ダブったものだけ

=IF(COUNTIF($A$1:A1,A1)=2,A1,"")

ダブらなかったものも含めて
=IF(COUNTIF($A$1:A1,A1)=1,A1,"")

として下にコピー。A列の数字がでてきますので、どこかに値貼り付けして並び替え、ではいかがでしょうか？

この回答へのお礼

早速の回答ありがとうございます。
やはり関数では数回の手順が必要なんですね

お礼日時：2006/06/06 09:44

No.1 回答者： gucchi-you 回答日時： 2006/06/06 08:44

ダブったものだけ抽出したいのですか、それともダブらなかったものも合わせてですか？

いずれにしろ関数では一発では難しいと思います。
もう1列か2列使えばcountifとソートでできそうですが。。。