excel vbaで木構造データを扱いたい

質問

excelシートに展開された木構造データのノード数を数える
プログラムを造っていますが、実装方法が見えなくなってきました。

□シート構造
　　→列方向　↓行方向と呼ぶ
　　列方向のセル数は固定
　　行方向のセル数は可変
　　いずれもexcelが扱える行列数に収まっている。

□データ構造とデータの特徴
下記のような木構造データです。
　 A 　B C D
----------------------------------
1 場所1 4 1 1
2 場所1 4 1 2
3 場所1 4 2 1
4 場所1 4 2 2
5 場所1 4 2 4
6 場所2 4 1 1
7 場所2 5 3 1
8 場所2 5 3 2
9 場所2 6 1 2
10 場所7 4 2 1
11 場所7 4 2 2
12 場所7 4 4 3

A列：同じ値が複数存在
B列：任意の整数
C列：1～ 4の任意の整数
D列：1～32の任意の整数

A列からD列ごとに昇順ソート済
　　（A列でソート済みデータを
　　　B列でソート、さらにC列でソート...）

C列D列は、1から始まることが多いが、
1が無い可能性もある

□やりたいこと
　●A列・B列・C列ごとのD列のエントリ数の計算
　　　計算結果
　　　 場所1-4-1　は、2エントリ（1-2行目）
　　　 場所1-4-2　は、3エントリ（3-5行目）
　　　 場所2-4-1　は、1エントリ（6行目）
　　　 場所2-5-3　は、2エントリ（7-8行目）
　　　 場所2-6-1　は、1エントリ（9行目）
　　　 場所7-4-3　は、3エントリ（10-12行目）

●A列・B列ごとのC列のユニークさの評価
　　計算結果
　　　場所1-4　は、5エントリ（1-5行目）で、C列のユニークな値は1,2
　　　場所2-4　は、1エントリ（6行目）で、C列のユニークな値は1
　　　 場所2-5　は、2エントリ（7-8行目）で、C列のユニークな値は3
　　　 場所2-6　は、1エントリ（9行目）で、C列のユニークな値は1
　　　 場所7-4　は、3エントリ（10-12行目）で、C列のユニークな値は2,4

　木構造を作って、ノードの数を数えればいいのかと思ったのですが、
　結果はexcelのセルに表示する形としたいために、どう作ればいいか
　思いつきませんでした。

アルゴリズムや実装のヒントをいただけないでしょうか
よろしくお願いいたします。

回答No.2

jmh · ベストアンサー

Pivot じゃダメなんですか？

データの個数 / Ｄ
Ａ　　　　Ｂ　　　Ｃ　　　集計
場所１　　４　　　１　　　　　２
　　　　　　　　　２　　　　　３
場所２　　４　　　１　　　　　１
　　　　　５　　　３　　　　　２
　　　　　６　　　１　　　　　１
場所７　　４　　　２　　　　　２
　　　　　　　　　４　　　　　１

お礼

あ、そうか。なるほど！
pivotを使えば思っていたことができそうです。

さっきいろいろいじっていましたが、どうやらうまくいきそうです。
pivotだけではだめですが、元データからpivotを生成して、
そこから最終的に出力したい形に持って行けそうです。

どうもありがとうございます、解決できそうです！

回答No.1

jmh

> 下記のような木構造データです。
> 　　A　　B　C　D
> ----------------------------------
> 1　場所1　4　1　1
> 2　場所1　4　1　2
> 3　場所1　4　2　1
> 4　場所1　4　2　2
> 5　場所1　4　2　4
> …

よく分からないです。↓これで合ってますか？

場所1
｜
＋－４
　　｜
　　＋－１
　　｜　｜
　　｜　＋－1
　　｜　｜
　　｜　＋－２
　　｜
　　＋－２
　　｜　｜
　　｜　＋－1
　　｜　｜
　　｜　＋－２
　　｜　｜
　　｜　＋－４
…

補足

jmhさん、その通りです。
わかりにくくてすみません。