〈エクセル〉 1シート内で分類別にリストを作成するには

質問

いつもお世話になります。

下記の表を、
大分類　中分類　　売数量　　売金額
　あ　　　Ａ　　　1000　　　 500000
　い　　　Ａ　 　　200　　 　700000
　あ　　　Ａ　　 　250　　　 250000
　あ　　　Ｂ　 　　300 36500
あ　　　Ａ　 　　500 80000
　い　　　Ａ　 　　300 600000
　　　　　　　　・
　　　　　　　　・
　　　　　　　　・
このような形に変更したいのですが、
大分類　中分類　　売数量　売金額　RANK数　RANK金
　あ　　　Ａ　　　1000　　500000　　1 1
あ　　　Ａ　 　　500 80000　　 2 3
あ　　　Ａ　　 　250　　250000 3 2
（1行空ける）
い　　　Ａ　 　　300　　600000　　1　　　2
い　　　Ａ　 　　200　　700000　　2　　　1
　　　　　　　　・
　　　　　　　　・
　　　　　　　　・
どのようなマクロを組めば良いか、さっぱり分かりません。どうぞ宜しくお願い致します。

回答No.2

imogasi · ベストアンサー

ロジックは＃１のご回答の通り。しかしコードに仕上げるのは、やや難しい。Ｓｔｅｐ　－１（下行から処理する）とＩｎｓｅｒｔの＋１がポイントか？。
Sub test01()
d = Range("A65536").End(xlUp).Row
Range(Cells(2, "A"), Cells(d, "D")).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
m = Cells(d, "A")
For i = d To 2 Step -1
If Cells(i, "A") = m Then
Else
m = Cells(i, "A")
Cells(i + 1, "A").EntireRow.Insert (xlDown)
End If
Next i
End Sub
テストデータを少し増やして、実行結果は
大分類 中分類 売数量 売金額
あ Ａ 1000 500000
あ Ａ 250 250000
あ Ａ 500 80000
あ Ｂ 300 36500

い Ａ 200 700000
い Ａ 300 600000

う Ａ 250 250000
う Ａ 500 80000
う Ｂ 300 36500
になりました。バグがあった場合、もとに戻せませんので、シートをコピーしてテストするなり、慎重に。

補足

いつもお世話になります。
ありがとうございます。いただきました回答を参考に、組み立てに成功しました。
あと、もう一つお願いしたいのですが、それぞれの分類別に数量・売上のランキングをつけることは可能でしょうか。

回答No.1

ssssssssss

こんにちわ。
次の手順でどうでしょうか？

(1)元表全体を大分類をキーにソート（昇順）する。
(2)つぎの処理を繰り返す。
　　１．大分類の列のセルの値を読む（変数に保持）
　　２．変数の値と１．の１つ上のセルを比較し、値が違えば、
　　　　その行に空行を挿入する。
　　　　同じであれば、１．に戻り、その際もう一つ下のセルを
　　　　読み込むようにする。

お礼

ありがとうございました。

他の方のアドバイスと合わせて、何とか頑張ってみます。