VBAを使用した、複数条件での集計

Question

VBA初心者です。
Excel2010を使用しています。
よろしくお願いします。

sheet1はデータが入力されているシートです。
１行目はタイトル行、
データは２行目から入力されています。
BG列が品名、CX列が単価です。

品名ごと単価ごとに集計して
sheet2に集計するマクロを教えて下さい。

sheet２は１行目はタイトル行で、入力は２行目、
A列から順に品名、単価、数量、金額です。

よろしくお願いします。

tatsu99 · Accepted Answer

集計のキーを品名ではなく「品名＋単価」で行うようにしました。
連想配列を使います。キーは、厳密には、品名＋タブ＋単価です。
Sheet1へ出力時には、キーを品名と単価にわけて取り出すようにします。
標準モジュールへ以下のマクロを登録してください。
---------------------------------------------------------------------
Option Explicit
Public Sub 品名単価集計()
    Const delm As String = vbTab
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Dim maxrow As Long
    Dim row As Long
    Dim dicT As Object      '連想配列 キー：品名＋タブ＋単価 値：個数
    Dim key As Variant
    Dim elm() As String
    Dim tanka As Variant
    Set sh1 = Worksheets("Sheet1")
    Set sh2 = Worksheets("Sheet2")
    Set dicT = CreateObject("Scripting.Dictionary")         '連想配列
    maxrow = sh2.Cells(Rows.Count, "BG").End(xlUp).row    'Sheet2のBG列の最大行取得
    '2行～最終行まで繰り返す
    For row = 2 To maxrow
        key = sh2.Cells(row, "BG").Value & delm & sh2.Cells(row, "CX").Value
        '品名＋単価で個数を管理する
        If dicT.exists(key) = True Then
            dicT(key) = dicT(key) + 1
        Else
            dicT(key) = 1
        End If
    Next
    sh1.Rows("2:" & Rows.Count).ClearContents                     'Sheet1の2行目以降をクリア
    row = 2
    For Each key In dicT
        elm = Split(key, delm)
        sh1.Cells(row, "A").Value = elm(0)  '品名
        sh1.Cells(row, "B").Value = elm(1)  '単価
        sh1.Cells(row, "C").Value = dicT(key)  '数量
        sh1.Cells(row, "D").Value = dicT(key) * sh1.Cells(row, "B").Value    '金額
        row = row + 1
    Next
    sh1.Range("A1").Sort key1:=sh1.Range("A1"), key2:=sh1.Range("B1"), Header:=xlYes
    MsgBox ("完了")
End Sub

fujillin · Answer

こんにちは

なさりたいことがいまいちわかりませんが、エクセルは表計算ソフトなので、簡単な集計程度であれば関数式などを設定しておく方が、結果が即時に反映できて便利なことが多いと思います。

なんとなくの雰囲気では、元データのシートから条件に合う項目数を集計したいように感じましたので・・・
例えば、集計用シートに以下の様な表を作成して、
　　　 　50　100　150
りんご
みかん
もも
ぶどう

表内の各セルに関数式をオートフィルすれば、それぞれの個数を一気に集計することが可能です。（ご質問を理解していないので、違っているかも知れませんが・・）
具体的には、COUNTIFS関数やSUMPRODUCT関数を利用することで、複数条件に合った項目数を集計することができます。
（セル位置や値の内容（質）がわからないので、実際の関数式は示せません。）

もちろんマクロでも処理は可能と思いますが、No1様もおっしゃっているように、情報が不足しているのと「何故」かが不明ですね。
というのも、「何故」の部分に使い方の上での条件とか、処理方法上の制約などが隠されている場合も多いのです。

それ以外では「何故」は特に大きな影響にはなりませんが、例えば、マクロの練習を兼ねて作成したいのであれば、まずはご自身で作成してみることです。
作成してみれば（完成できなくとも）、作成するのに最低でもどのような情報が必要で、どのような情報は無くても良いのかが整理できるはずです。
（多くの質問で、質問者様の思う情報しかなく、実際には情報不足のものが多いのも事実です）

これによって、同じ質問をするにしても、説明の内容や手順も変わってくるはずと思いますし、ご自身がわからないところもはっきりしてくるので、より具体的な質問ができるようになり、的確な回答を得られる可能性も増加することと思います。

d-q-t-p · Answer

> ここに、単価別という条件を加えると
> 分からなくなってしまうため、
それなら今のコードを提示して下さい。その方が早いです。
ついでに添削もしてもらえるでしょう。

> 知りたいことは「りんご」のうち
> 「50」は何個、「100」は何個、
> 「150」は何個かということでした。
繰り返しになりますがピボットテーブルでやらない理由はなん
ですか？　「品名」「単価」別の「データの個数」ですよね。

d-q-t-p · Answer

> sheet2に集計するマクロを教えて下さい。
初心者だと自分で書いているのですから まずは自分でやってみて下さい。
最初から人に作ってもらうようなのは 初心者でも何でもないでしょう。
さっぱり分からない人にマクロは無理です。まずは勉強して下さい。

そもそも 何故マクロが必要なのですか？
ピボットテーブルではできないことなのですか？

いずれにしてもこの説明でマクロを組むことはできません。何故なら肝心
なことが説明されていないからです。何を「集計」するのですか？

入力表にはどんな風に入力されているのでしょう。単価が変動する商品な
のかどうかすら分かりません。

VBAを使用した、複数条件での集計

集計のキーを品名ではなく「品名＋単価」で行うようにしました。

こんにちは

> ここに、単価別という条件を加えると

> sheet2に集計するマクロを教えて下さい。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング