エクセル関数での重複削除

質問

以下のようなエクセル表があったとします。

　　　　　　【列Ａ】　　【列Ｂ】
【行１】　　　１　　　　　Ａ社　　
【行２】　　　２　　　　　Ｂ社
【行３】　　　３　　　　　Ｂ社　
【行４】　　　４　　　　　Ｃ社
【行５】　　　５　　　　　Ｃ社
【行６】　　　６　　　　　Ｃ社

この表の下のほうに、【列Ｂ】の社名を重複を削除した形で一覧表示させたいのです。この例の場合ですと、

　　　　　　　　　　　　　Ａ社
　　　　　　　　　　　　　Ｂ社
　　　　　　　　　　　　　Ｃ社

と表示させたいのですが。。。
フィルタ機能を使って重複を削除すれば同じようなことができるのですが、今後の更新作業を楽にするため関数でやりたいのですが、可能でしょうか。
教えてください。

回答No.2

keithin · ベストアンサー

＞可能でしょうか
やって出来ないことは勿論ありません。でも使いやすくもありません。

=INDEX(B:B,SMALL(IF(MATCH($B$1:$B$100&"",$B$1:$B$100&"",0)=ROW($B$1:$B$100),ROW($B$1:$B$100),9999),MIN(COUNTA(B:B)+1,ROW(B1))))&""
と記入してコントロールキーとシフトキーを押しながらEnterで入力する。など。

＞今後の更新作業を楽にするため関数でやりたいのですが

その場限りのブラックボックスでよいのなら，という事ですね。

お礼

ご回答ありがとうございます。
作業列を作らずにできるとはエクセルは奥が深いですね。教えていただいた関数を使うことにしました。

ちなみにＢ列上でこの関数を使いたかったので、循環参照とならないように多少関数を変更して利用することにしました。

=INDEX($B1:$B$100,SMALL(IF(MATCH($B$1:$B$100&"",$B$1:$B$100&"",0)=ROW($B$1:$B$100),ROW($B$1:$B$100),9999),MIN(COUNTA($B1:$B$100)+1,ROW(B1))))&""

回答No.6

Nouble

つい数日前に私が同じような問題(重複の解消)に突き当たり
探されている内容に対する回答を頂きましたので
(※:ナンバー3　MackyNo1様の回答です）
アドレスを開示しておきます

この情報がお役に立てたなら幸いです

参考URL：

http://oshiete.coneco.net/qa5748727.html

お礼

ご回答ありがとうございます。
今回は別の方が作業列を作らずにできる方法を投稿してくださったのでそちらを利用するこにしました。

回答No.5

kagakusuki

今仮に、元データが1～100行目にかけて入力されていて、B110～B209に一覧表示を行い、C列を作業列として使用するものとします。
　まず、C1セルに

=IF($B1="","",1)

という数式を入力し、次にC2セルに

=IF(COUNTIF($B$1:$B2,$B2)=1,COUNT(C$1:C1)+1,"")

という数式を入力して下さい。
　そして、C2セルをコピーして、C3～C100セルに貼り付けて下さい。
　それから、B110セルに

=IF(ROWS(B$110:B110)>MAX($C$1:$C$100),"",INDEX($B$1:$B$100),MATCH(ROWS(B$110:B110),$C$1:$C$100)))

という数式を入力して下さい。
　そして、B110セルをコピーして、B111～B209セルに貼り付けて下さい。
　これで、重複を削除した形で、B列の内容が一覧表示される筈です。

お礼

ご回答ありがとうございます。
今回は別の方が作業列を作らずにできる方法を投稿してくださったのでそちらを利用するこにしました。

回答No.4

keithin

ふむ。。Ａ列を使ってしまってもいいですね。

Ａ　　Ｂ　
番号　社名
　１　Ａ社
　２　Ｂ社
　　　Ａ社
　３　Ｃ社
　　　Ｃ社
　　　Ｂ社

A2:
=IF(COUNTIF($B$2:B2,B2)=1, COUNT($A$1:A1) + 1, "")

Ｆ　　Ｇ
番号　社名
１　　Ａ社
２　　Ｂ社
３　　Ｃ社

F2:
=IF(ROW(F1)>MAX(A:A),"",ROW(F1))
G2:
=IF(ROW(G1)>MAX(A:A),"",VLOOKUP(ROW(G1),A:B,2))

お礼

ご回答ありがとうございます。
今回は別の方が作業列を作らずにできる方法を投稿してくださったのでそちらを利用するこにしました。

回答No.3

noname#204879

A　 B　　 C
1　 1　Ａ社　 1
2　 2　Ｂ社　 2
3　 3　Ｂ社
4　 4　Ｃ社　 4
5　 5　Ｃ社
6　 6　Ｃ社
7
8
9
10
11　　 Ａ社
12　　 Ｂ社
13　　 Ｃ社
14

C1:　=IF(COUNTIF(B$1:B1,B1)=1,A1,"")
B11: =IF(ISERROR(SMALL(C$1:C$6,ROW(A1))),"",INDEX(B$1:B$6,SMALL(C$1:C$6,ROW(A1))))

お礼

ご回答ありがとうございます。
今回は別の方が作業列を作らずにできる方法を投稿してくださったのでそちらを利用するこにしました。

回答No.1

soixante

当初のデータは何行目まであるのでしょうか。増えたりしないのでしょうか。
でも、「下のほうに」とありますので、あえて下にします。
データが100行目まであるとします。
一覧表示を110行目からするとします。

かなり強引ですが、作業列を使ってみました。
Ｃ１セルに　=COUNTIF($B$1:B1,B1)　として100行目まで引っ張る
Ｄ１セルに　１
Ｄ２セルに　=IF(C2=1,D1+1,D1+0)　として100行目まで引っ張る

Ａ１１０セルに　=ROW(A1)
Ｂ１１０セルに　=INDEX($B$1:$B$100,MATCH(A110,$D$1:$D$100,0),1)
A110:B110 を選択して、下に引っ張っていけばリスト化されます。

ご参考：意味
Ｃ列は、行頭からその行までにあるその社名の数。つまり「１」は初出ということです。２以上は「それより上の行にその社名があった」ということです（＝重複）。

Ｄ列は、Ｃ列が１の時（＝初出の社名の時）だけ数値を１足していくようにしてあります。
２以上の時は足しません。（D1+0 とあえて書きましたが、D1でも良い）

そういうわけで、１、２、３　という番号の社名だけ拾っていけば、初出の社名リストになります。
あとは、INDEXとMATCHを使い、１１０行目以降に作ってあります。
http://pc.nikkeibp.co.jp/pc21/tech/excel36/26/

ご意向にそぐっているでしょうか。ご参考まで。
もっとスマートな方法の回答が出るかもしれません。

お礼

ご回答ありがとうございます。
今回は別の方が作業列を作らずにできる方法を投稿してくださったのでそちらを利用するこにしました。