EXCEL VBAでテーブルのデータを複数条件で合計

前提・実現したいこと

売り上げをまとめたEXCELファイルがあり、
データはTable化して蓄積してあります。（約3000件ほどのデータです）

現在は条件ごとにフィルターをかけて合計をしているのですが
このやり方では時間が膨大にかかり、間違えも多発してしまっています。

そこで自動化をしよう考えていますが、現在の方法だと10分ほど時間が掛かってしまいます。
他に何かいい案はないでしょうか。

Tableに入っているデータは下記の内容になります。

◆データ内容
・日付
・担当者
・地域
・商品名
・売上金額（午前）
・売上金額（午後）
・合計金額

合計条件は
・地域が「〇〇〇」、商品名が「〇〇〇」だった場合の金額。
⇒合計は「売上金額（午前）」「売上金額（午後）」「合計金額」の3パターン

発生している問題・エラーメッセージ

Tableのデータを複数条件で分けて合計する部分を「WorkSheetFunction.SUMIFS」を使用しているのですが
条件が多く、すごく時間が掛かってしまいます。

現在のコードを載せるべきなのでしょうが
会社情報が入っているため上記情報でなんとか対応していただけると助かります。

試したこと

配列にデータを格納してみたのですが、そこから条件に合ったデータを抽出して
合計する方法が分からず断念。
Dictionaryも調べてみたのですが、Keyに対してItemが一つしか格納できないようなので
断念。

説明下手で申し訳ありませんが、どうか宜しくお願い致します。

補足情報（FW/ツールのバージョンなど）

EXCEL2016を使用しています。

行動規範の内容に同意します

回答3件

ベストアンサー

EXCEL VBA 連想配列でクロス集計・項目別集計・グループ集計 (Scripting.Dictionary)　テクニック
集計処理を高速化したい場合、連想配列を推奨します。

投稿2020/09/23 12:32

TanakaHiroaki

総合スコア1063

pon108

2020/09/23 23:42

回答ありがとうございます。 Dictionaryでは解決できないかと思っていましたが、教えていただいたサイトを参考に作成することが出来ました。高速で処理が出来るようになり助かりました。ありがとうございました。

行動規範の内容に同意します

EXCEL VBAでSQL文を使って集計する
テーブル化されているなら本来は上記URLの方法が一番早いとは思うんですが

追記 SQLは基本こんな感じになります。
使われる際は[Sheet1$]の記載を変更して下さい

VBA
1sql = "SELECT" _
2        & "  地域, 商品名, SUM(売上金額（午前）) AS 売上金額午前合計, SUM(売上金額（午前）) AS 売上金額午後合計, SUM(合計金額) AS 合計金額合計" _
3        & "  FROM [Sheet1$]" _
4        & "  GROUP BY 地域, 商品名" _
5        & "  ORDER BY 地域, 商品名"