ＥＸＣＥＬの集計で悩んでいます

質問

ＥＸＣＥＬ２００３で、
・商品ＩＤ　・商品名　・支店　・在庫数　・在庫金額　・販売開始日
を商品ＩＤごとに在庫数と在庫金額の集計を行いました。
行数は約１万、集計行は約１千あります。
ここまでは問題なく出来たのですが、
集計行には、商品ＩＤ集計として、在庫数と在庫金額の合計しかなく、
集計行のみにした場合、商品名と販売開始日が表示されません。

集計行に、商品名と販売開始日を追記するマクロを書きたいのですが
（関数でもかまいません）、どなたかお知恵をお借りできませんでしょうか。

よろしくお願いいたします。

回答No.1

onlyrom · ベストアンサー

方法はいくつかありますが簡単なサンプルをひとつ。

見出し：　A1～F1
データ：　２行以降

Ａ列に「ＩＤ番号　計」と表示されてるはずなので、
その「計」という文字を検索し
ヒットしたら、そのひとつ上の行の「商品名」と「販売日」を
ヒットした行の該当列に表示すればいいですね。

'-----------------------------------------
Sub Test()
　Dim KeiCell As Range
　Dim myRange As Range
　Set myRange = Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))

　Set KeiCell = myRange.Find("計", , xlValues, xlPart)
　　　If KeiCell Is Nothing Then Exit Sub

　Do
　　KeiCell.Offset(0, 1).Value = KeiCell.Offset(-1, 1).Value
　　KeiCell.Offset(0, 5).Value = KeiCell.Offset(-1, 5).Value
　　Set KeiCell = myRange.Find("計", KeiCell)
　Loop While KeiCell.Value <> "総計"
End Sub
'-------------------------------------

但し、Ａ列の最終行には【総計】という文字があること。
集計コマンドを実行すると必ず最後に【総計】が表示されますので
問題はないと思いますが。。
以上。

お礼

このたびはご回答ありがとうございました。
無事集計行に表示させることが出来ました。
また、いい勉強になりました。
重ねて御礼申し上げます。
ありがとうございました。

回答No.4

SePapa

こんにちは。

集計とはエクセル標準でついている集計機能のことなのであれば
マクロなしでも以下の５ステップで容易に対応は可能かと思います。

１）まずは一覧を商品ＩＤ昇順、販売開始日昇順で並びかえします。
２）商品名（列Ｂ）の横に商品ＩＤ（列Ａ）と商品名を連結する列Ｃを追加し、
　各セルには以下のような関数（文字の連結）を指定する。
　・２行目の場合の例　　=CONCATENATE(A2," ",B2)
　　※後で、この列で集計することで、集計行に商品名も印字されます。
３）販売開始日（列Ｇ）の横に集計行表示用の販売開始日（列Ｈ）を追加し
　その列の各セルには以下の関数を指定する。
　・２行目の場合の例　　=IF(A1<>A2,G2,"")
　　※１行目の商品ＩＤ（Ａ列）と２行目が同じか比較し、
　　　違うのであればＩＤが切り替わったとみなし同じ行の販売開始日（Ｇ列）の値を表示する。
　　　それ以外は空白とする。
４）集計の設定で、集計グループは商品ＩＤ＋商品名の列（列Ｃ）とする。
　集計するフィールドは在庫数、在庫金額に加え、
　集計行用の販売開始日列（列Ｈ）も集計する。
５）集計行の販売開始日のセルの書式設定を日付に変更する。

結果、集計行のみ表示した場合、商品ＩＤ以外に商品名も
表示されるようになり、販売開始日も表示されます。
販売開始日も集計してしまう、というのがポイントでしょうか。

ピポットテーブルの方が早いかもしれませんが、
ご参考まで。

お礼

お忙しいところ、お時間を割いていただきまして
誠にありがとうございました。
今後また、お伺いすることもあると思いますが、
その際はどうぞよろしくお願いいたします。

回答No.3

gyouda1114

ピボットテーブルで試してみては

Excel(エクセル)実用編：家計簿の作成(ピボットテーブルを使う)
http://www.eurus.dti.ne.jp/~yoneyama/Excel/jituyou/kake-pib.htm

お礼

このたびは、ご回答ありがとうございました。
結果、ピボットテーブルは利用しなかったのですが、
勉強のいい機会になりました。
今後もどうぞよろしくお願いいたします。

回答No.2

ASIMOV

ピボットテーブルはどうでしょう？

お礼

このたびはアドバイスありがとうございました。
これを機会に、もっと勉強しようと思います。
今度ともどうぞよろしくお願いいたします。