置換の方法はそちらで頑張っていただくとして...
一応PowerQueryの例も書いておきます。
集計対象のE列の見出しが下のように「金額」だった場合...
A B C D E
5 ＮＯ 日付 得意先 商品 金額←ここ
6 001 7月20日 Ｂ ＡＡ 2
7 002 7月21日 Ｂ ＡＢ 8
8 003 7月22日 Ｃ ＡＡ 30
9 004 7月23日 Ｄ ＡＣ 4
データ
→データの取得
→その他のデータソースから
→空のクエリ
→詳細エディター
→「let ... in ..」の部分を全選択して削除
→以下の文字列を貼り付け
let
Src = Folder.Files("\\192.168.0.10\share\テスト"),
Fld = "金額",
Sel = Table.SelectColumns(Src,{"Name","Content"}),
Add = Table.AddColumn(Sel, "Tbl", each Excel.Workbook([Content],true)),
Del = Table.RemoveColumns(Add,{"Content"}),
Exp = Table.ExpandTableColumn(Del, "Tbl", {"Data", "Item"}, {"Data", "Item"}),
Add2 = Table.AddColumn(Exp, "Custom", each Table.AddIndexColumn([Data],"Index",1,1)),
Del2 = Table.RemoveColumns(Add2,{"Data"}),
Add3 = Table.AddColumn(Del2, "Custom.1", each Table.AddColumn([Custom],"OddSum", each Record.Field(_, Fld)*Number.Mod([Index]+1,2) ,Int64.Type)),
Add4 = Table.AddColumn(Add3, "Custom.2", each Table.AddColumn([Custom.1],"Isnum", each if Value.Type(Record.Field(_, Fld))=Number.Type then 1 else 0 ,Int64.Type)),
Del3 = Table.RemoveColumns(Add4,{"Custom", "Custom.1"}),
Agr = Table.AggregateTableColumn(Del3, "Custom.2", {{"Isnum", List.Sum, "個数"},{"OddSum", List.Sum, "奇数合計"}})
in
Agr
→ 金額 の部分はそちらにあわせて変更してください
→完了
→閉じて読み込む
A B C D
1 Name Item 個数 奇数合計
2 ファイル1.xlsx Sheet1 4 2
3 ファイル1.xlsx Sheet2 2 35
4 ファイル2.xlsx Sheet1 4 7
5 ファイル2.xlsx Sheet2 4 20
6 ファイル3.xlsx Sheet1 4 7
7 ファイル3.xlsx Sheet2 5 200
