エクセル 数値のカウント

質問

エクセルで、ある範囲内に数値が入力されています。
どんな数値があり、同じ数値が何個あるか？というのをカウントしたいのですが
どのようにすれば良いでしょうか？

例

1A 2
2A 6
3A 2
4A 1.5
5A 2

という入力があり、どこかに

1.5=1（1.5が1個という意味での=です）
2 =3
6 =1

というような感じの答えを出したいです。
例では5Aまでですが、実際には200くらいあります。
エクセルの関数だけで可能でしょうか？

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

回答No.2

lark_0925 · ベストアンサー

まず、Excelで処理する場合は、
1行目には、項目名を付けるようにしたほうが何かと便利ですよ！！
（Excelの機能が使いやすい）

それから　セルの名称ですが、１ＡではなくＡ１です。

仮に提示された例題を引用して　セルＡ１から以下のような
データが入力されていたとしましょう。

　　　　Ａ
　１　　例題
　２　　2
　３　　6
　４　　2
　５　　1.5
　６　　2

セルＡ１からＡ６を選択した状態で、
「データ」---「フィルタ」---「フィルタオプションの設定」とクリックします。

すると、「フィルタオプションの設定」ダイアログが表示されます。

「抽出先」として「指定した範囲」を選択してください。
「リスト範囲」は「＄Ａ＄１：＄Ａ＄６」と表示されているはずですから、
そのままにしてください。

抽出範囲として、仮に　「$D$1」　と指定して下さい（両端の「」は除く）。
「重複するレコードは無視する」にチェックを入れてＯＫボタンをクリックしてください。

セルＤ１からＤ４に
　　　　Ｄ
　１　　例題
　２　　　2
　３　　　6
　４　　　1.5

と表示されるはずです。

セルＥ２に
=countif($a$2:$a$6,d2)

と入力し、セルＥ４までフィル操作すると、

Ｅ２からＥ４に

　　　　Ｄ　　　　Ｅ
　１　　例題
　２　　　2　　　　3　
　３　　　6　　　　1
　４　　　1.5　　　1

と表示されます。試してみてください。

お礼

御回答ありがとうございます。
そのもの（やりたい事）ズバリの回答です。助かりました。
どうもありがとうございました。

回答No.3

imogasi

関数では答えは出たので、VBAを勉強したい方のために。
ソートの部分のコードはマクロの記録からを少し改変。
Sub Macro1()
d = Range("a65536").End(xlUp).Row
Range("A1:A" & d).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
'--
d = Range("a65536").End(xlUp).Row
k = 0
j = 2 '件数アウトプットスタート行
m = Cells(2, "A")
For i = 2 To d '最下行まで繰り返し
If Cells(i, "A") = m Then
k = k + 1 '件数を１加える
Else
Cells(j, "j") = m '前の数をJ列にセット
Cells(j, "k") = k '加算してきた件数をK列にセット
j = j + 1 '１行下へ書く体勢準備
k = 1 '今回の数で１件とする
End If
m = Cells(i, "A") '現在の数を前の数としてセット
Next i

End Sub

お礼

御回答ありがとうございます。

VBAが解かると、エクセルで出来ることが広がるのでしょうね。
たぶん、エクセルの持つ機能の100分の1も解かっていないと思います。
今回のように、必要に迫られて（楽に間違いなく仕事をこなすため）
新しい機能（というほどでも無い方がほとんどだと思いますが）を
模索している状態です。

回答No.1

mshr1962

=COUNTIF(A1:A200,カウントする数値)
で数えることが出来ます。
http://office.microsoft.com/ja-jp/excel/HP100698401041.aspx?pid=CH100645381041

別の方法として「データ」「ピボットテーブル」で
「列の見出し」と「データ」に数値の列を選択して
「データ」集計を「数値の個数」にする。
http://office.microsoft.com/ja-jp/excel/HP100870431041.aspx

お礼

御回答ありがとうございます。

COUNTIFだと、全部の数値を拾い上げる必要があるので、漏れが出る可能性があります。