
No.1ベストアンサー
- 回答日時:
できないようなので、ユーザー定義関数を作ってみました。
しかし、このやり方だと可視セルを一つ一つチェックしていくので
とても時間がかかります。
時間短縮のために
Range("A:A")をRange("A1").CurrentRegion.Resize(, 1)
に変更しています。
Sub test()
Dim myRange As Range
Set myRange = Range("A1").CurrentRegion.Resize(, 1).SpecialCells(xlCellTypeVisible)
' Set myRange = Range("A:A").SpecialCells(xlCellTypeVisible)
Range("C1").Value = myCountIF(myRange, Range("B1").Value)
Set myRange = Nothing
End Sub
Public Function myCountIF(argRng As Range, arg2 As String) As Long
Dim myCell As Range
Application.Volatile
myCountIF = 0
For Each myCell In argRng
If myCell.EntireRow.Hidden = False Then
myCountIF = myCountIF + Application.WorksheetFunction.countif(myCell, arg2)
End If
Next
Set myCell = Nothing
End Function
No.3
- 回答日時:
こんにちは
オートフィルタを適用した状態でコピー→他のシート(自ブックでも他ブックでもOK)にペーストしますと、オートフィルタで抽出されたものだけが貼付きます。
このデータをカウントしてはいかがでしょうか?
No.2
- 回答日時:
オートフィルターで抽出した後でさらに表示されているものの中であるものを数えるということでしょうか?
オートフィルターで表示されているものを数えるにはSUBTOTAL関数で集計方法を3などにすれば表示されている数を知ることができますがそれではよくないのでしょうか?
オートフィルターで抽出したものからさらに抽出をすることの意味がよく理解できません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
このQ&Aを見た人はこんなQ&Aも見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
みんなの【マイ・ベスト積読2024】を教えてください。
積読、ついついしちゃいませんか?そこでみなさんの 「2024年に買ったベスト積読」を聞きたいです。
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
オートフィルタ使用時にCOUNTIFをSUBTOTALのように使いたい。
Excel(エクセル)
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
-
4
指定のWORKBOOKを前面表示する方法(エクセル:VBA)
Excel(エクセル)
-
5
Offsetで可視セルだけを移動したい。
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
ShowAllDataのエラーを回避したい
Access(アクセス)
-
10
関数で可視セルのデータ個数カウント
Excel(エクセル)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
13
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
14
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
15
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
16
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
17
VBA オートフィルター状態から見えるセルの選択について
Excel(エクセル)
-
18
オートフィルタで抽出結果に 罫線をひく方法
Visual Basic(VBA)
-
19
表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた
Visual Basic(VBA)
-
20
ExcelVBAで質問です。離れた二次元配列を一つにしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセル関数で、数字の入った...
-
エクセルの偶数行(奇数行)の抽出
-
オートフィルタで3つ以上の条...
-
【excel】リスト内の条件にあっ...
-
オートフィルタは金額の桁カン...
-
マクロで条件に合った行の選択...
-
なぜShowAllDataだとうまく行か...
-
access マクロでのフィルタの...
-
Excel共有ブックのオートフィル...
-
【Excel】行に複数回出てくる人...
-
オートフィルタを見出し行選択...
-
オートフィルタで選択した項目...
-
VBAでオートフィルターの再検索
-
エクセルのオートフィルタで困...
-
Excelオートフィルターで絞り込...
-
Excelで一定の行(列)間隔の数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
オートフィルタで3つ以上の条...
-
access マクロでのフィルタの...
-
エクセル関数で、数字の入った...
-
エクセルのオートフィルタで困...
-
スプレッドシートのチェックボ...
-
可視セルを対象としたcountifが...
-
データの抽出を教えてください
-
エクセルで隔週をもとめる
-
オートフィルタで未入力(空白...
-
エクセルにて、フィルタをかけ...
-
Excel共有ブックのオートフィル...
-
エクセルで検索窓のようなもの...
-
VBA オートフィルタで抽出した...
-
【EXCEL】条件に一致した最新デ...
-
エクセル、オートフィルタで最...
おすすめ情報