複数列の中の文字列の検索、個数抽出

質問

どなたかお力をお貸しください。。
エクセル2003を使用しています。

　　　A列　B　　C　　D
１　　あ　　う　　 　 あ
２　　い　　お　 か　 か
３　　う　　　　　　　　う
４　　え　　　　　き　 く
５　　お　　い　 う　　け

Dの文字列のなかでA～C列の中に重複している文字が何個あるかを出したいです。

この場合D列は「あ、か、う、く、け」なので、A～C列にある「あ、か、う」が重複しているので、3個と出したいです。
もしくは重複していない「く、け」で2個と出したいです。

MATCH関数を使うと出来そうなのですが、MATCH関数だと配列の概念がなさそうなので、どうしたものかと。

条件として、
・一つのセルで関数を使用して出す。
・マクロ、計算用のセルはできたら使用しない。
・空白セルもあり、文字列の完全一致のみ個数としてカウント。
・列の数はだんだん増えてくるので、列数は増えても大丈夫なやり方の方がいいです。

COUNTIFで重複個数を出すと、「う」が複数回出てくるので、重複の個数が増えてしまい困っています。

もしかしたら不可能かもしれませんが、どなたかお知恵をお貸しください。
よろしくお願いいたします。

回答No.1

noname#204879 · ベストアンサー

=SUMPRODUCT((COUNTIF(A1:C5,D1:D5)>0)*1)

お礼

迅速な回答ありがとうございます。
まさに理想の答えでした。

回答No.4

layy

何個？というのは問題でなくて、どうやって求めるか、アルゴリズムの問題では？。関数使うことがすべてでないです。

ＶＢＡも学ぶこと。
Ａ１からＣ５までセルの値を順次チェックできるので、制限条件に矛盾なければ求まるし、行列が増えても位置が違っても対応できます。
条件つきということは何かの課題ですか？。

また、
じゃあＶＢＡコードを教えて、としないこと。
考えてやりたい人にコード教える方も悪いんですが。やり方しだいで力のつき方変わります。

ＶＢＡで対象範囲のセルを判断してください。

回答No.3

kagakusuki

条件に不明な点が有りますので、補足して頂く様、御願いします。

(1)同じ行に複数個の重複が有る場合には、何個とカウントするのでしょうか？
　例えば、

　　　A列 B列 C列 D列
1行目　あ　い　あ　あ

という様な場合、1行目だけで2個とカウントするのでしょうか、それとも、1個とカウントするのでしょうか？

(2)異なる行に重複が有る場合には、カウントに入れるのでしょうか、それとも、入れないのでしょうか？
　例えば、

　　　A列 B列 C列 D列
1行目　あ　い　う　え
2行目　か　き　え　け
3行目　さ　け　し　お
4行目　お　ち　つ　て
5行目　な　て　ぬ　あ

という様な場合、5個とカウントするのでしょうか、それとも、0個とカウントするのでしょうか？

(3)D列のセルと重複する場合のみをカウントするのでしょうか？
　例えば、

　　　A列 B列 C列 D列
1行目　あ　あ　あ　い

という様な場合、1行目だけで1個、3個、0個の何れとカウントするのでしょうか？

(4)
>・列の数はだんだん増えてくるので、列数は増えても大丈夫なやり方の方がいいです。

とありますが、行ではなく列が増えるという事は、質問文中の表を例にした場合、1列増えると、E1～E5の範囲が付け加わると考えれば宜しいのでしょうか？

(5)列が増えた場合、どの列のセルと重複する個数をカウントするのでしょうか？
　例えば、

　　　A列 B列 C列 D列 E列
1行目　あ　い　う　え　お
2行目　か　き　く　け　か
3行目　さ　し　す　せ　し
4行目　た　ち　つ　て　と
5行目　な　に　ぬ　ぬ　の

という様な場合、2行目と3行目において、E列のセルと重複するセルが存在しているため2個とカウントするのでしょうか、それとも、5行目において、D列のセルと重複するセルが存在しているため1個とカウントするのでしょうか？

回答No.2

imogasi

初心者は
＞・マクロ、計算用のセルは使用しない
配列数式は使用しない
など勝手な条件をつけて質問しているが、課題によってはＶＢＡなど使わないと出来ないか、複雑になるものもあるのだ。
回答者をテストしているコーナーではないのだから、関数などでは難しくなるかどうか判別できる力をつけてたり、ＶＢＡでも勉強して対処すべきだ。
エクセル関数で出来るこなど知れている。計算以外の検索による抜き出しなどは、エクセル関数の本来の機能ではない。
使えばかろうじてできるということもあるが。
エクセル関数は多セル対多セルをチェックするズバリの関数などない。
ーーー
例データ
Ａ列　　　Ｂ列　　　　　Ｃ列
a s aa
b t dd
c l ff
d d b
e b ss
s x dd
r e d
f g o
ーー
=SUM(IF(NOT(ISERROR(MATCH(A1:B8,$C$1:$C$8,0))),1,0))
ＳＨＩＦＴ＋ＣＴＲＬ＋ＥＮＴＥＲ（配列数式）
結果
４（ｂ、ｄ、ｂ、ｄの４つ）
など何かヒント（改良して目的達成）にならないか考えてみたら。
なお、ＭＡＴＣＨ関数は検索表の方（第２引数）は複数列は指定できない関数。