とりあえず一つのシートにまとめましょう。
●Sheet1(2月)
下の範囲を選択して[テーブルとして書式設定]
→お好みの物を選択
→[先頭行をテーブルの見出しとして使用する] にチェック
→[OK]
A B C D
1 NO ID 名前 合計
2 1 4 D 557
3 2 2 B 568
4 3 1 A 550
5 4 11 K 905
6 5 12 L 361
7 6 14 N 580
8 7 6 F 705
9 8 8 H 265
10 9 1 A 300
11 10 11 K 400
12 11 12 L 500
13 12 14 N 600
●Sheet2(3月),Sheet3(4月)なども同様に、データ範囲を[テーブルとして書式設定]
A B C D
1 NO ID 名前 合計
2 1 2 B 540
3 2 1 A 655
4 3 11 K 460
5 4 14 N 585
6 5 19 S 525
7 6 24 X 605
8 7 3 C 500
9 8 6 F 510
10 9 11 K 100
11 10 14 N 200
12 11 19 S 300
13 12 24 X 400
●[データ]→[データの取得]→[その他のデータソースから]→[空のクエリ]
→[詳細エディター]
→以下を貼り付け
let
fnm = Excel.CurrentWorkbook(),
flt = Table.SelectRows(fnm, each Text.StartsWith([Name], "テーブル")),
trs = Table.TransformColumns(flt,{"Name", each Number.FromText(Text.Select(_, {"0".."9"}))}),
ren = Table.RenameColumns(trs,{{"Name", "シート連番"}}),
exp = Table.ExpandTableColumn(ren, "Content", Table.ColumnNames(ren[Content]{0})),
del = Table.RemoveColumns(exp,{"NO"}),
grp = Table.Group(del, {"シート連番", "ID", "名前"}, {{"総計", each List.Sum([合計]), type number}}),
srt = Table.Sort(grp,{{"シート連番", Order.Ascending}, {"ID", Order.Ascending}})
in
srt
→エラーがなくなれば [閉じて読み込む]
A B C
1 シート連番 ID 総計
2 1 1 850
3 1 2 568
4 1 4 557
5 1 6 705
6 1 8 265
7 1 11 1305
8 1 12 861
9 1 14 1180
10 2 1 655
11 2 2 540
12 2 3 500
13 2 6 510
14 2 11 560
15 2 14 785
16 2 19 825
17 2 24 1005
まずはここまで。無理だったらごめんなさい。