パーツ付加情報であった方が良いと思うVBAマクロを作りました。
（前に作ったACCESSデータベースをコントロールするマクロからちょっと変更して移植しました。）
重複を確認したり重複データを削除して合算したりEXCELであるあるの作業です。
下記のコードは重複確認のコードですが重複データを削除して合算する場合はItemで集計します。

dic.Item(name) = dic.Item(name) + Cells(i, "G").Value←集計する列がGの場合です。
dic.Add Key:=name,Item:=Cells(i, "G").Value
ソースコードを載せますので必要な方は使ってみてください。





2026年01月08日