同一数字の重複を”1”としてカウントする方法。

質問

どなたかご存じでしたらご回答よろしくお願いします。
【質問】
　エクセルのＡ列～Ｅ列に0～9迄の任意の数字が1つだけ入っています。
　これをＦ列で「同一数字はいくつ重複しても”１”として数字の数をカウントする方法」
　が知りたいです。具体的に下記のエクセルシートのとおりです。

●エクセルシート

　　A　B　C　D　E　F
　　3　3　1　7　　8　4 ←"3"は同一数字で2個重複するが"1個"とみなして、3178の4となる。
　　7　7　7　7　　7　1 ←"7"は同一数字で5個重複するが "1個"とみなして、7の1となる。
　　4　4　4　4　　2　2 ←"4"は同一数字で4個重複するが "1個"とみなして、42の2となる。
　　6　6　6　3　　1　3 ←"6"は同一数字で3個重複するが "1個"とみなして、631の2となる。
　　1　1　8　8　　8　2 ←"1"は同一数字で2個重複、"8"は同一数字で3個重複するがそれぞれ
　　　　　　　　　　　　　　"1個"とみなして、18の2となる。
　　3　3　2　2　　5　3 ←"3"と"2"は同一数字で2個ずつ重複するがそれぞれ"1個”とみなして
　　　　　　　　　　　　　　　325の3となる。
　　3　4　5　6　　7　5 ← 同一数字の重複は存在しないため、34567の5となる。

●注意事項
　　・使用するエクセルは2010です。

以上、よろしくお願いします。

回答No.1

KURUMITO · ベストアンサー

Ａ1セルからＥ1セルにわたって数値が入力されているとしたら

=COUNT(1/FREQUENCY(A1:E1,A1:E1))

お礼

早速のご回答ありがとうございます。
教えて頂いた通りにやってみて
得たい結果になりました。
ありがとうございます。

回答No.2

tom04

こんにちは！
VBAになってしまいますが・・・
一例です。
データは1行目からあるとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, j As Long, cnt As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
cnt = 0
For j = 1 To 5 '←A～E列まで
If WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i, j)), Cells(i, j)) = 1 Then
cnt = cnt + 1
End If
Next j
Cells(i, "F") = cnt
Next i
End Sub 'この行まで

こんなんではどうでしょうか？m(_ _)m

お礼

ご回答ありがとうございます。
早速、ＶＢＥで実行したところ
得たい結果になりました。
ありがとうございます。