EXCELでの集計の表示について

質問

おわかりの方教えてください。
集計したときに左に「＋」でグループでまとめたときの
表示として、グループ単位のデータを表示させたいので、やり方を教え
てください。

ex.
形番で集計したとき「aaaa計」の横の列は
全て空白となるのですが、
空白である商品名の列に「xx」、単価の
列に「10」を表示させたいです。

　　形番　　商品名　単価　数量　金額
　　aaaa　　xx　　　10　　　2　　20
　　aaaa　　xx　　　10　　　3　　30　
-　aaaa計

よろしくお願いします。

回答No.2

Mozisan · ベストアンサー

aaaa計の右セルに式を入力（貼り付け）する必要があると思います。

「ＡＡ計」がＡ１０であるとします。
　Ｂ１０に[ =B9 ]と入力します。
　Ｃ１０に[ =C9 ]と入力します。
　　　（[]は必要ありません。）
Ｂ１０：Ｃ１０を選び、コピーします。
オートフィルタでＡ列の「計」を含む行だけ表示させ、表示されたＢ列を選んで貼り付けると一度の貼付けですみます。

○オートフィルタの設定法
１．メニューバーの「データ」－「オートフィルタ」をクリックします。
２．1行目（項目名）の各セル右に▼ボタンが表示されます。
３．Ａ１の▼ボタンをクリックします。
４．「オプション」をクリックします。
５．左のボックスに「計」と入れます。
６．右のボックスは▼を押して「を含む」を選びます。
７．「ＯＫ」を押すと、「○○計」という行だけが表示されます。
８．貼り付けたい範囲を選び、貼り付けてください。

お礼

ありがとうございます。
やりたいことができました。

回答No.3

imogasi

下記を実行したようなものを望んでおられるのかな。
Sub test01()
Dim cl As Range
For Each cl In Range("b1:b10")
MsgBox cl.Formula
If Mid(cl.Formula, 1, 9) = "=SUBTOTAL" Then
cl.Offset(0, 1) = cl.Offset(-1, 1)
cl.Offset(0, 2) = cl.Offset(-1, 2)
cl.Offset(0, 3) = cl.Offset(-1, 3)
cl.Offset(0, 4) = cl.Offset(-1, 4)
End If
Next
End Sub
Range("b1:b10")の１０は適当にする必要があるかも知れない。未だ煮詰まっていませんが。

お礼

お考えいただきありがとうございます。
勉強してみます。

回答No.1

shindyJr

こんにちは。

「形番」に「aaaa」と入力すると自動的に「商品名」に「xx」、「単価」に「10」と入力できるようにするということですね。

ＶＬＯＯＫＵＰ関数という機能を使えば、可能です。
この関数を機能させるために若干の準備作業があります。

参考ＵＲＬの解説を参考に関数式を作成してみてください。

参考URL：

http://homepage1.nifty.com/tabotabo/skhon11.htm

お礼

早々にありがとうございます。
試してみたのですが、
@VLOOKUP(照合値,照合範囲,列位置)の
照合範囲に重複データがあるせいか、
うまくいきませんでした。