#4です。関数での回答は諦めて、VBAでやって見ました。
A列にA1:A8に
1,2
2,3,4
2,4,1
2
3,2
3,4,2,1
1,2
1
と入っているとします。1文字のセルは「'1」のように
入力するとします(文字列にします)。
Sub test01()
Dim c(20), h(20)
k = 0
'------
For i = 1 To 8 '8行目までのデータ
s = Cells(i, "A")
p01:
p = InStr(s, ",")
If p = 0 Then
s1 = s
'-----
For j = 1 To k
If c(j) = s1 Then
h(j) = h(j) + 1
GoTo p02
End If
Next j
k = k + 1
c(k) = s1: h(k) = 1
'-----
GoTo p02
Else
s1 = Mid(s, 1, p - 1)
'-----
For j = 1 To k
If c(j) = s1 Then
h(j) = h(j) + 1
GoTo p03
End If
Next j
k = k + 1
c(k) = s1: h(k) = 1
'-----
p03:
s = Mid(s, p + 1, Len(s) - p)
GoTo p01
End If
p02:
Next i
For j = 1 To k
Cells(j, "B") = c(j)
Cells(j, "C") = h(j)
Next j
End Sub
のプログラムを実行して
B1:C4に
1 5
2 7
3 3
4 3
が出ます。拙いプログラムで微妙なロジックを使ってますが、実際に合わせて修正して、これに類したものを組まないと件数は出ないでしょう。これでも2シートに亘る件数はカウントしてません。
そもそも、回答を貰い、入力するまでに、始めのアンケート企画段階で、件数カウントが易しいように、熟慮する必要があるようです。
お礼
いや~、本当に細かくいろいろありがとうございました。大変感謝しています。勉強になりました。