![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
オートフィルタについての質問です。
オートフィルタにて絞り込む際にプルダウンに表示されている、種類の数を
カウント(チェックボックスの数)したいのですが、ご教授頂けますように
お願いします。
画像では、A,B,C,D,E,Fの6種類という数が知りたいです。
---------------------------------------------------------
使用ソフト:Excel2010
使用条件 :関数、マクロ、VBAでも問題ありません。
---------------------------------------------------------
宜しくお願いします。
![「オートフィルタについての質問です。」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/5/115664_5f66dc79cbde9/M.jpg)
No.3ベストアンサー
- 回答日時:
#2です。
考えてみたらA列って、ちょっと使いにくいですね選択列(セル)の可視セル(2行目から)の重複しないデータの数です。
Sub Sample1()
Dim dic As Object, c As Range
Dim LastRow As Long, col As Long
Set dic = CreateObject("Scripting.Dictionary")
col = Selection.Column
LastRow = Cells(Rows.count, col).End(xlUp).Row
For Each c In Range(Cells(2, col), Cells(LastRow, col)).SpecialCells(xlCellTypeVisible)
dic(c.Value) = 0
Next
MsgBox dic.count & "件です"
End Sub
Qchan1962さま
閲覧とご回答ありがとうございます。
まさに私が求めていた希望通りの結果を得る事が出来ました。
誠に有難うございます。
自由度の高さでは、No.3のご回答の方が良さそうですが、
私が携わっている業務には、No2.のご回答の方が適していると考えております。
No.2,No.3共に目から鱗で大変感動し、満足しております。
今後も機会が有りましたら、ご教授の程宜しくお願いします。
No.2
- 回答日時:
こんばんは、
>VBAでも問題ありません。
少し面倒な気もしますが、こんな感じでいかがでしょう。(A列2行目からです)
Sub Sample()
Dim dic As Object, c As Range
Set dic = CreateObject("Scripting.Dictionary")
For Each c In Range("A2:A" & Cells(Rows.count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
dic(c.Value) = 0
Next
MsgBox dic.count & "件です"
End Sub
No.1
- 回答日時:
企業で統計を推進する立場の者です。
フィルタとは無関係に、その範囲にあるカテゴリ値のケース数を数え上げる作業になります。
=SUMPRODUCT(1/COUNTIF(データ範囲,データ範囲))
で求められるハズですので、やってみて下さい。
ただし、やってみて確認したところ、検索範囲に空欄があるとエラーになるみたいです。
kamiyasiroさま
早々の閲覧とご回答ありがとうございます。
ご教授頂いた通り、データ範囲内の種類の数を数える事が出来ました。
はじめて知る内容なので大変勉強になりました。
しかし、フィルタを用いて絞り込んだ場合の可視セル状態での
種類の数を数える事が出来ませんでした。
希望の作業としては、フィルタの可視セルに応じて、何種類あるかを
知ることが出来れば最良です。
新たな方法をご教授頂きまして、ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Excel(エクセル) Excel ユーザー定義で変換したセルについて 3 2023/02/04 01:25
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Excel(エクセル) エクセルでフィルタ後の列の重複を回避したい 6 2022/10/13 12:50
- Excel(エクセル) スプレッドシートのチェックボックスとフィルタを連携させたい 2 2022/09/26 18:02
- Excel(エクセル) ランダムで四択の問題を作る場合にvbaで何を学べばいいでしょうか。 1 2022/04/14 16:45
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Excel(エクセル) 【Excelの集計について質問です。】 7 2022/12/03 16:51
- Excel(エクセル) エクセルでフィルタ後、考えている場所に値コピーができない。 1 2022/05/02 21:01
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルオートフィルタで余計...
-
エクセルで、桁数の異なるデー...
-
Excel関数、何がいけないのかわ...
-
教えて下さい!関数SUBTOTALとC...
-
エクセルのフィルタをかけると...
-
エクセルについて。 ソートで絞...
-
エクセルを使用してデジタルフ...
-
色フィルターをかけた状態で、...
-
エクセル:色の付いたデータを...
-
セル指定後マクロ実行ボタンで...
-
5の倍数の日付だけを抽出したい
-
色のついたセルにフラグを立た...
-
エクセルでのオートフィルタオ...
-
エクセルの計算表の下向き三角...
-
Excelの日付をオートフィルタで...
-
EXCELでフィルタが中途半端にか...
-
エクセルのオートフィルタの並...
-
関数で「1.あああ」から「ああ...
-
excelで奇数の行のみ削除したい
-
エクセルで下段だけの削除
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルオートフィルタで余計...
-
エクセルで、桁数の異なるデー...
-
色フィルターをかけた状態で、...
-
エクセルのフィルタをかけると...
-
オートフィルタで抽出したデー...
-
エクセルの計算表の下向き三角...
-
教えて下さい!関数SUBTOTALとC...
-
Excel関数、何がいけないのかわ...
-
エクセルで特定の範囲内から小...
-
行番号の文字の色が青色の理由?
-
5の倍数の日付だけを抽出したい
-
エクセルを使用してデジタルフ...
-
Excel2010 フィルタで抽出できない
-
=SUBTOTAL に =COUNTIF の機能...
-
エクセル:色の付いたデータを...
-
Excelでオートフィルタ時に交互...
-
色のついたセルにフラグを立た...
-
【Excel】 可視セルへの貼り付...
-
グーグルスプレッドシート 連番...
-
excelで奇数の行のみ削除したい
おすすめ情報