重複データの抽出

質問

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

Ａ列　　　　Ｂ列　　
1245　　　　1245
1365　　　　1365
1245　　　　1398
1398　　　　1155
1365
1155
1245
のようにまとめたい

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

回答No.8

imogasi

ＯＫＷＡＶＥでimogasi方式で照会してもらえば、似た質問が沢山あります。
Ａ２：Ａ８
Ａ列　　Ｂ列　　　Ｅ列
1245 1245 1
1365 1365 2
1245 1398
1398 1155 3
1365 #N/A
1155 4
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

もとい

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

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

回答No.6

134

関数にて…

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

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

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

上記前提の上で…

Ａ２セルに
=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

こんにちは。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

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

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

お礼

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

補足

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

回答No.3

ao777

少し無理やりですが、B1に下記の関数を入れて、
後はオートフィルで↓にコピーしてください。

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

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

お礼

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

回答No.2

gucchi-you

#1です。やってみました。
ダブったものだけ

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

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

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

お礼

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

回答No.1

gucchi-you

ダブったものだけ抽出したいのですか、それともダブらなかったものも合わせてですか？
いずれにしろ関数では一発では難しいと思います。
もう1列か2列使えばcountifとソートでできそうですが。。。