作業列を追加していいなら、D1に「可視」と入力して

D2
=IF(SUBTOTAL(3,[@大分類]),ROW()-ROW(テーブル1[#見出し]),0)

　　　　　　　　　　　　　　↓追加
　　　　 A　　　 B　　 C　　 D 
 1　大分類　小分類　個数　可視 
 2　　　Ａ　りんご　　 1　　 1 
 3　　　Ｂ　りんご　　 2　　 2 
 4　　　Ｂ　ばなな　　 3　　 3 
 5　　　Ａ　ばなな　　 4　　 4 
 6　　　Ａ　みかん　　 5　　 5 
 7　　　Ａ　りんご　　 6　　 6 
 8　　　Ｂ　ばなな　　 7　　 7 

　・・・・・・・・・・・

20　　　　　小分類　個数　　　 
21　　　　　りんご　　 9　　　 
22　　　　　ばなな　　14　　　 
23　　　　　みかん　　 5　　　 

B21
=IFERROR(INDEX(テーブル1[小分類],AGGREGATE(15,6,1*TEXT(MATCH(テーブル1[小分類],テーブル1[小分類]&T(0/テーブル1[可視]),0),"[="&テーブル1[可視]&"]0;"),ROW(B1))),"")
下方向・↓
C21
=IF(B21="","",SUMIFS(テーブル1[個数],テーブル1[小分類],B21,テーブル1[可視],">0"))
下方向・↓

こんな方法も。

　　　　 A　　　 B　　 C 
 1　大分類　小分類　個数 
 2　　　Ａ　りんご　　 1 
 3　　　Ｂ　りんご　　 2 
 4　　　Ｂ　ばなな　　 3 
 5　　　Ａ　ばなな　　 4 
 6　　　Ａ　みかん　　 5 
 7　　　Ａ　りんご　　 6 
 8　　　Ｂ　ばなな　　 7 

　　・・・・・・・

20　　　　　小分類　個数 
21　　　　　りんご　　 9 
22　　　　　ばなな　　14 
23　　　　　みかん　　 5 

B21
=IFERROR(INDEX(テーブル1[小分類],AGGREGATE(15,6,1*TEXT(MATCH(テーブル1[小分類],テーブル1[小分類]&T(0/SUBTOTAL(3,OFFSET(テーブル1[小分類],ROW(テーブル1)-ROW(テーブル1[#見出し])-1,,1))),0),"[="&ROW(テーブル1)-ROW(テーブル1[#見出し])&"]0;;;"),ROW(B1))),"")
下方向・↓
C21
=IF(B21="","",SUMPRODUCT(テーブル1[個数]*(テーブル1[小分類]=B21)*SUBTOTAL(3,OFFSET(テーブル1[個数],ROW(テーブル1)-ROW(テーブル1[#見出し])-1,,1))))
下方向・↓




→大分類でフィルター

　　　　 A　　　 B　　 C 
 1 大分類▼ 小分類　個数 
 2　　　Ａ　りんご　　 1 
 5　　　Ａ　ばなな　　 4 
 6　　　Ａ　みかん　　 5 
 7　　　Ａ　りんご　　 6 

　　・・・・・・・

20　　　　　小分類　個数 
21　　　　　りんご　　 7 
22　　　　　ばなな　　 4 
23　　　　　みかん　　 5 

目的のブックのコピーを作ってテストしてください。

目的ブックの目的シートの「シート見出し」を右クリックする。
「コードの表示(V)」を選ぶと画面中央に白いエリアが表れます。(VBE画面です）
その白いエリアに下記マクロをコピぺして、Alt+F11でエクセルに戻って下さい

※前回と違って、F5を押さないし、VBAコードも消さないように。

集計が必要になったら、B5セル(規格と書いてあるセル）を右クリックするだけです。

なお、フィルターが掛かっていても、いなくても、右クリックした時点において、
目に見えるデータ行を全て集計するように作ってあります。(その方が便利なハズ）

’コピペするVBA

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target(1, 1).Address(0, 0) = "B5" Then
        Cancel = True
        Call Extract
    End If
End Sub

Private Sub Extract()
    Dim rNew As Range, aCell As Range, nextTopCell As Range
    Dim dicT As Object, ky, OutItem, firstCounter, i As Long
    Dim itmAry(1 To 3), temp
    
    Set dicT = CreateObject("Scripting.Dictionary")
    
    Application.ScreenUpdating = False
    
    With Me.ListObjects("テーブル1")
        
        With .DataBodyRange.Columns(2)
            Set nextTopCell = .Cells(.Cells.Count).Offset(5)
            nextTopCell.Resize(10000, 3).Clear
        End With
        
        With .Range.Columns("B:D").Resize(, 3).SpecialCells(xlCellTypeVisible)
            .Copy nextTopCell
            
            Set rNew = Range(nextTopCell, Cells(Rows.Count, "B").End(xlUp))
        End With
    End With
    
    Me.Sort.SortFields.Clear
    Me.Sort.SortFields.Add Key:=nextTopCell, SortOn:=xlSortOnValues, Order:=xlAscending
    
    With Me.Sort
        .SetRange rNew.Resize(, 3)
        .Header = xlYes
        .Apply
    End With
    
    For Each aCell In rNew
        If aCell.Value <> "" And aCell.Value <> "規格" Then
            ky = aCell.Value & "♪" & aCell(1, 2).Value
            If dicT.exists(ky) Then
                temp = dicT(ky)
                
                temp(3) = temp(3) + aCell(1, 3).Value
                dicT(ky) = temp
            Else
                itmAry(1) = aCell(1, 1).Value
                itmAry(2) = aCell(1, 2).Value
                itmAry(3) = aCell(1, 3).Value
                dicT(ky) = itmAry
            End If
            
        End If
    Next
    
    OutItem = dicT.Items
    firstCounter = OutItem(0)(1)
    
    For i = 1 To dicT.Count - 1
        If OutItem(i)(1) = firstCounter Then
            OutItem(i)(1) = Empty
        Else
            firstCounter = OutItem(i)(1)
        End If
    Next
    
    rNew.Offset(1).Resize(, 3).Clear
    rNew.Offset(1).Resize(dicT.Count, 3) = Application.Transpose(Application.Transpose(OutItem))
    Application.Goto nextTopCell
    
    Application.ScreenUpdating = True
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

＞VBAはさっきの先ほどのコードを入れてやることですよね。

まだ、具体的に考えていません。

いずれにしても、さっきと違ってVBAは消さない方式になるので、
ブックの拡張子は.xlsmになります。

それが、会社の方針で問題ないことが必須条件です。
問題なければ、今日中にはアップする予定です。(明日確認してください）

もしその前に、何方かから数式案が提示されれば、それでやってください。

 エラーじゃなく、0ですか。
 ちょっと分からないですねぇ・・こちらでは正常に出ています。
 
 この問題は、数式でやるのは面倒なところがありまして、これ以上はちょっと対応しにくいです。
 
 VBAじゃダメですか？　それなら対応します。
 
 あくまでも数式案と言う事であれば、他の回答者のレスを待ってみてください。
 
 あと、普通にピボットテーブルで集計して、必要な数字だけ眼でチェックする、と言う選択肢も
 あるかも知れないなぁと思っていますけど。

(1) A291セル =INDEX(テーブル1[名前],MATCH(B291,テーブル1[規格],0))
(2) B291セル =IF(SUBTOTAL(3,テーブル1[規格])=COUNTA(テーブル1[規格]),"フィルタで絞ってください",LOOKUP(1,0/SUBTOTAL(3,INDIRECT("B"&ROW(テーブル1[規格]))),テーブル1[規格]))

(3) C291セル =IFERROR(INDEX(テーブル1[サイズ],AGGREGATE(15,6,(ROW(テーブル1[サイズ])-5)/(MATCH(B$291&テーブル1[サイズ],テーブル1[規格]&テーブル1[サイズ],0)=ROW(テーブル1[サイズ])-5),ROWS(B$290:B290))),"")
(4) D291セル =IF(C291="","",SUMIFS(テーブル1[個数],テーブル1[規格],B$291,テーブル1[サイズ],C291))

上記(3)、(4)の数式を下方へコピー(多目に）

現在のテーブルはどうなっているんですか？

１．テーブル名

２．テーブルタイトル行→1行目ですね？

３．テーブルの最下行の行番号

４．テーブルの列数(サンプルと同じ3列なんですか？）
　　タイトル名はサンプル通りですか？(大分類、小分類、個数)

＞今どうしてもできないので、↑と同じものを別のシートに作ってみましたが、
新規ブックを作成して、Sheet1のシート見出しを右クリックする。

「コードの表示(V)」を選ぶと画面中央に白いエリアが表れます。(VBE画面です）

その白いエリアに下記マクロをコピぺし、F5キーを押下してください

※以上で全て自動で出来上がりますので、
 「Ctrl+Z」でコードを消去し、Alt+F11でエクセルに戻って下さい

Private Sub onlyOnce()

    With Sheets(1)
     Rem 生データのセルをまとめて処理
    .Range("A1,A12").Value = "大分類"
    .Range("B1,B12").Value = "小分類"
    .Range("C1,C12").Value = "個数"
    .Range("A2,A5:A7").Value = "Ａ"
    .Range("B2:B3,B7").Value = "りんご"
    .Range("C2").Value = 1
    .Range("A3:A4,A8").Value = "Ｂ"
    .Range("C3").Value = 1000
    .Range("B4:B5,B8").Value = "ばなな"
    .Range("C4").Value = 2000
    .Range("C5").Value = 2
    .Range("B6").Value = "みかん"
    .Range("C6").Value = 5
    .Range("C7").Value = 3
    .Range("C8").Value = 16

     Worksheets(1).ListObjects.Add(xlSrcRange, Range("$A$1:$C$8"), , xlYes).Name = "テーブル1"
     Rem 数式セルをまとめて処理
     .Range("A13").FormulaR1C1Local = "=IF(SUBTOTAL(3,テーブル1[大分類])=COUNTA(テーブル1[大分類]),""フィルタで絞ってください"",LOOKUP(1,0/SUBTOTAL(3,INDIRECT(""Sheet1!A""&ROW(テーブル1[大分類]))),テーブル1[大分類]))"
     .Range("B13:B16").FormulaR1C1Local = "=IFERROR(INDEX(テーブル1[小分類],AGGREGATE(15,6,(ROW(テーブル1[大分類])-1)/(MATCH(R13C[-1]&テーブル1[小分類],テーブル1[大分類]&テーブル1[小分類],0)=ROW(テーブル1[大分類])-1),ROWS(R12C[-1]:R[-1]C[-1]))),"""")"
     .Range("C13:C16").FormulaR1C1Local = "=IF(RC[-1]="""","""",SUMIFS(テーブル1[個数],テーブル1[大分類],R13C[-2],テーブル1[小分類],RC[-1]))"
    End With
End Sub

シートが出来たら、フィルターで「A」か「B」に絞ってください。
絞らない内は、A13セルに「フィルタで絞ってください」と言う表示が出ます。


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

テーブル名を「テーブル1」とします。

(1) A13セル =IF(SUBTOTAL(3,テーブル1[大分類])=COUNTA(テーブル1[大分類]),"フィルタで絞ってください",LOOKUP(1,0/SUBTOTAL(3,INDIRECT("A"&ROW(テーブル1[大分類]))),テーブル1[大分類]))
(2) B13セル =IFERROR(INDEX(テーブル1[小分類],AGGREGATE(15,6,(ROW(テーブル1[大分類])-1)/(MATCH(A$13&テーブル1[小分類],テーブル1[大分類]&テーブル1[小分類],0)=ROW(テーブル1[大分類])-1),ROWS(A$12:A12))),"")
(3) C13セル =IF(B13="","",SUMIFS(テーブル1[個数],テーブル1[大分類],A$13,テーブル1[小分類],B13))

上記(2)、(3)の数式を下にコピー

<結果図>
行  ___A___  ___B___  __C__
 1  大分類   小分類   個数 
 2  Ａ       りんご       1
 5  Ａ       ばなな       2
 6  Ａ       みかん       5
 7  Ａ       りんご       3
 9                         
10                         
11                         
12  大分類   小分類   個数 
13  Ａ       りんご       4
14           ばなな       2
15           みかん       5
16                         

＞大分類を選ぶ度に個数が変わる為、どのように合計欄を用意したら良いかもわかりません。

仮りにですが、いつも３種類と決まっていたら、何処に合計欄を用意するお積りですか？

 ＞りんご・ばなな・みかんそれぞれの合計
 
 「それぞれの合計」とは具体的にどこにどんな数値を出すんですか？
 
 行  ___A___  ___B___  _C_  _D_  _
  1  大分類   小分類              
  2  Ａ       りんご              
  5  Ａ       ばなな              
  6  Ａ       みかん              
  7  Ａ       りんご              
 
 

「フィルター」とは、とんなフィルターですか？(オートフィルター？）

「フィルター後の結果」と言うものを提示いただけませんか？
※大分類2種類、小分類3種類程度のサンプルで結構です。
 「それぞれの合計」とやらも一緒に記入してください。

エクセルのバージョンは何ですか？
※複数ある場合は、一番古いバージョンを申告してください。