【Excel】

「ピボット」　機能を使うと30秒ぐらいで作れると思いますよ。

参考サイトはたくさんありますが、たとえばこちら。

Excelのピボットテーブルでデータの集計/分析を自在に行うには？

（月毎の集計例も載ってますよ）

これでいいのかな

１、オートフィルタで「1月1日以上1月31日以下」と「紅茶」で抽出してから、集計機能でグループの基準も販売種別を選ぶ

２、オートフィルタで「1月1日以上1月31日以下」と抽出してから、集計機能でグループの基準に「商品分類」を選ぶ

ついでに先ほどの式から、発展させて月ごと、項目ごとの表を作る方法です。

（ピボットテーブルのようなものですが）

のような表を作り、数式と書いてるところの数式を

=SUM(IF((YEAR($A$2:$A$5000)=YEAR($F2))*(MONTH($A$2:$A$5000)=MONTH($F2))*($C$2:$C$5000=G$1),$E$2:$E$5000,0))
を入力して、Shift+Ctrl+Enter({}で囲まれる）

後は、表の大きさに合わせて縦横にコピー。

因みに①の表示形式を文字列→日付にするのは、そのまま表示形式を日付にすればいいだけで、

②の文字列→数値はこんな感じ。

（注意。上の表とかを設定して下のコードを実行するとかなりの重い処理になると思われるので、

実行する場合は計算方法を一時的に手動にしたほうがいいかもしれません）

Sub Macro1()
    Dim str As String
    Dim lastRow As Long
    Dim i As Long
    Application.ScreenUpdating = False
    
    lastRow = Cells(Rows.Count, 5).End(xlUp).Row
    
    For i = 2 To lastRow
        str = Cells(i, 5).Value
        If Right(str, 1) = "円" Then
            str = Left(str, Len(str) - 1)
        End If
        Cells(i, 5).NumberFormatLocal = "#,###""円"" "
        Cells(i, 5).Value = CLng(str)
    Next i
    
    Application.ScreenUpdating = True
End Sub