１セル内の複数キーワード集計

質問

１つのセルに好きな季節を記入してあります
行に集計項目があります。Ａ１：春　Ｂ１：夏　Ｃ１：秋　Ｄ１：冬
Ｅ列に好きな季節をカンマで区切って入れます。
Ｅ２：【春】、Ｅ３：【秋、春】、Ｅ４：【春、初夏】です。

Ｅ２：【春】でＡ２で★表示
Ｅ３：【秋、夏】でＢ３とＣ３で★表示
Ｅ４：【春、初夏】でＡ４で★表示
としたいです。好きな季節が、１セルに１個だと可能なのです。春=IF($A$1=E2,"★"," ")、夏=IF($B$1=E2,"★"," ")、秋=IF($C$1=E2,"★"," ")、冬=IF($D$1=E2,"★"," ")の関数設定です。１セルに２個以上だとＥ３で秋、夏に★、Ｅ４で春に★は集計できません。これを集計できる方法を教えて下さい

※OKWaveより補足：「ひかりＴＶのサービスやＩＳＰぷらら」についての質問です。

回答No.1

aokii · ベストアンサー

【春、初夏】に夏が無いことを人間が区別できませんので、難しいです。
【春、初夏】も夏があるもの考えれば、A2セルに以下の式を入れ、
=IF(AND(ISERR(FIND(A$1,$E2)),ISERR(FIND(A$1,$E2))),"","★")
その後、右と下にドラッグコピーでいかがでしょう。

お礼

早速の回答ありがとうございます。
関数を実行したら１００％近く納得のいく結果でした。
【初】【晩】の入っている分は、修正して使用開始しました。

回答No.3

imogasi

#2です。関数を中心に考えた。ただカンマ区切りのデータをセルに分割するのは、よく知られた下記「操作」（データー区切り位置）で賄った。
ーー
データ
Ａ４：Ｆ７　変なところから始まっていますがすみません、意味はありません。
Ａ５：Ｆ７は下記の関数を入れた後の結果です
acd df c tu x v
★ ー ★
ー ★ ー ★ ★
ー ー ー ー ー ★
５－７行は関数の結果です。関数は後述。
ーー
Ｈ５：Ｈ７に元データがあり、Ｉ列より右列に、Ｍ７までカンマで区切ったデータを分離した。
acd,b,c acd b c
accd,df,tu,x accd df tu x
vb,v,gh,hjk,x vb v gh hjk x　＜－Ｈ列からＭ列までの分離後の列データ
すなわち、Ｉ列からＭ列は、データー区切り位置ーカンマで各セルに分離しました。
ーー
関数
Ａ５セルに
=IF(NOT(ISERROR(MATCH(A$4,$I5:$L5,0))),"★","")
と入れて、Ａ５セルを第７行目まで、かつＡ５：Ａ７のセルをＦ列まで式を複写します。
結果は上記の通りです。
だい４行を優先するのか、Ｉ列ーＭ列が優先するのか、質問者の意図と違うかも。

回答No.2

imogasi

この質問以は、補足が必要なのではないか。
下記の私の処理例を読んで、私の考え違い・間違いなど補足すべきだろう。
余り具体的にデータ例を提示しているために、質問していることの全貌をつかみにくい。
具体例だけ提示すればわかりやすいと思うのは間違いだと思う。
質問では、説明文章を適当に添えて、説明が必要なことを覚えておいて。
ーー
Ａ１：Ｅ４について
春 夏 秋 冬
＊ ー ー ー 春
ー ＊ ＊ ー 秋、春
＊ ー ー ー 春、初夏
までは読み取れるが（星印は＊に空白セルはーで表示）
Ａ１：Ｄ１はデータ列のようだが、下の第２行から第４行間で、該当する結果を入れるセルだとすると、第１行に当たる、他のデータはどこに現れるのか。Ｅ列より右列に現れるのか。
またＡ５からＥ１０などに、データと検索結果を出すセルが現れるのか？。
普通はこんな構成は少ないだろう（エクセルの使い方が経験不足とおもう）
ーー
Ｅ列は条件を示す列のようで、カンマで条件語句（文字列）をＯＲ条件で示しているようだな。たとえば、春、初夏は、春か初夏の語句が含まれているセルなら、★マークを出すらしい。
また第１行のデータにない条件語句もＥ列に出現するらしい。
ーー
多数データを列方向に展開するのは、エクセルの使い方として経験不足だと思う。
＝＝
１セルにカンマで区切って条件語句を並べるのは、エクセル関数では区分け（Ｓｐｌｉｔ）処理がむつかしい（関数では複数データとなる配列等に振り分けるのがむつかしく）ので、むつかしいと思う。関数で回答が出ても質問者にはすぐ理解できない式だろう。
こういう場合はＶＢＡの出番かとおもう。
質問者は、ＶＢＡは使ったことがないだろうが、挙げてみておく。
標準モジュールに
Sub test01()
dr = Range("E100000").End(xlUp).Row 'Ｅ列の最下行をプログラムで掴む
'MsgBox dr
For i = 2 To dr '第２行目からdr行まで繰り返し
For j = 1 To 4 'Ａ列からＤ列まで繰り返し
dt = Cells(1, j) '第１行Ｊ列　既定分類
g = Split(Cells(i, "E"), ",") '第i行目のＥ列データ=条件語句、をカンマで分離 g(k)に入れる
For k = 0 To UBound(g) '分離した語句それぞれについて
MsgBox g(k)
f = InStr(dt, g(k)) '分離した語句が第１行目に見つかれば
If f <> 0 Then
Cells(i, j) = "★"
End If
Next k
Next j
Next i
End Sub
結果
Ａ１：Ｅ６
春 夏 秋 冬 条件？
★ ー － ー 春
★ ー ★ ー 秋,春
★ ー ー ー 春,初夏
ー ★ ー ★ 夏,冬
ー ー ー ★ 厳冬,冬
ーーー
関数で、もし現状Ｅ列データを、カンマで分離し、分離したものを複数セルにＦ列より右列に振り分ければ、Ｍａｔｃｈ関数で、存非をチェックできるかもしれない。
===
「集計」という言葉が出てくるが何のこと。
集計は数字セルを足すのじゃないの。それはどこ？