Excel VBAで区分毎に小計値を算出する

Excel VBAを使い、区分毎に小計値を算出するマクロを作りました。

要件定義

スタート(元データ)

元データは下図のような形式です。マクロには区分が入った列を変数名chcolとして、合計する列を変数名sumcolとして教えてあげます。

ゴール

ゴールは下図です。元データを加工し、区分ごとに小計が入った形をゴールとします。

コード

コードは下記のようになりました。