エクセル　複数行ある同一商品を1行にまとめるには？

Question

同一内容が入力された複数行の合計を出す方法を教えてください。
　　　
エクセルの表でA列に商品名、B列に色の種類、Ｃ列～Ｅ列にサイズごとの個数がある、まったく同じ商品が、複数行にランダムに掲載されています。

Ａ列、Ｂ列で同一の情報を持つ商品について、Ｃ列～Ｅ列のサイズごとの合計を出したいのです。

例）商品名、色、サイズ個数（Ｃ列：Ｓサイズ、Ｄ列：Ｍサイズ、Ｅ列：Ｌサイズの順です。）

A1：Ｔシャツ　B1：ホワイト　C1：5　D1：4　E1：3　　
A2：Ｔシャツ　B2：ブラック　C2：3　D2：5　E2：5
A3: Ｔシャツ　B2：ホワイト　C3：3　D3：3　E3：2
A4: Ｔシャツ　B2：ブラック　C4：3　D4：2　E4：3

各商品が300行程あり、オートサムではやりきれません。
すべての各商品（Ａ列、Ｂ列が一致するもの）を1行ごとにまとめたシートを作成するにはどうしたら良いでしょうか？

merlionXX · Accepted Answer

merlionXXです。
お書きになった質問の通り、関数で回答すれば、「質問の例が簡単すぎたようです」と言われ、再度VBAで回答すれば、「例は大変簡略化しておりまして、実際には～」とおっしゃる。
どうしてそんなに情報を小出しにするのかなあ？
しかも新たに出された条件で「商品情報がA～Dまでが商品情報」？？
A～Dまでが商品情報だからなんなんですか？
A～Dまでがすべて一致することが必要なんですか？それとも別に何か違う条件があるのですか？

一応、A～Dまでが一致するもので集計するというコードです。
データがあるシート名はSheet1
サイズ別に個数をだすシート名はSheet2とします。
今後は、もう少し回答者のことも考えて、必要な情報は正しく、洩れなく、わかりやすく質問なさるようにお願いしますね。

Sub test02()
    Dim myDic As Object, ms As Object, ns As Object
    Dim c As Range, i As Integer, dta As String
    Set myDic = CreateObject("Scripting.Dictionary")
    Set ms = Sheets("Sheet1")
    Set ns = Sheets("Sheet2")
    For i = 4 To 8
        For Each c In ms.Range(ms.Cells(1, "A"), ms.Cells(Rows.Count, "A").End(xlUp))
            dta = c.Value & ":" & c.Offset(0, 1).Value & ":" & c.Offset(0, 2).Value & ":" & c.Offset(0, 3).Value
            If Not myDic.exists(dta) Then
                myDic.Add dta, c.Offset(0, i).Value
            Else
                myDic(dta) = myDic(dta) + c.Offset(0, i).Value
            End If
        Next c
        ns.Range("A1").Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Keys)
        ns.Cells(1, i + 1).Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Items)
        myDic.RemoveAll
    Next i
    ns.Columns("A:A").TextToColumns DataType:=xlDelimited, Destination:=Range("A1"), Other:=True, OtherChar:=":"
    Set myDic = Nothing
    Set ms = Nothing
    Set ns = Nothing
End Sub

sekkii · Answer

見当違いの返答でしたらごめんなさい。
たぶん　並べ替え→集計（excel2007だと小計）　で
ご希望に添えませんか？
並べ替えちゃいけなかったかな？

参考URL：http://www.eurus.dti.ne.jp/~yoneyama/Excel/syukei.html

merlionXX · Answer

No4で貼ったコードにコピーミスがあったので貼りなおします。

Sub test01()
    Dim myDic As Object, ms As Object, ns As Object
    Dim c As Range, i As Integer, dta As String
    Set myDic = CreateObject("Scripting.Dictionary")
    Set ms = Sheets("Sheet1")
    Set ns = Sheets("Sheet3")
    For i = 2 To 4
        For Each c In ms.Range(ms.Cells(1, "A"), ms.Cells(Rows.Count, "A").End(xlUp))
            dta = c.Value & ":" & c.Offset(0, 1).Value
            If Not myDic.exists(dta) Then
                myDic.Add dta, c.Offset(0, i).Value
            Else
                myDic(dta) = myDic(dta) + c.Offset(0, i).Value
            End If
        Next c
        ns.Range("A1").Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Keys)
        ns.Cells(1, i).Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Items)
        myDic.RemoveAll
    Next i
    ns.Columns("B:B").Insert Shift:=xlToRight
    ns.Columns("A:A").TextToColumns DataType:=xlDelimited, Destination:=Range("A1"), Other:=True, OtherChar:=":"
    Set myDic = Nothing
    Set ms = Nothing
    Set ns = Nothing
End Sub

merlionXX · Answer

No1で回答したmerlionXXです。

> Ａ列とＢ列の組み合わせを拾い出すこと自体が大変困難で

では、VBAでの方法です。
存在するすべての組み合わせおよび組み合わせごとのサイズ別の合計を求めます。
以下の手順でやってみてください。

データがあるシート名はSheet1
サイズ別に個数をだすシート名はSheet2とします。
ちがっている場合は下記コードで
    Set ms = Sheets("Sheet1")
    Set ns = Sheets("Sheet2")
のところの　””　内の名前を変更するか、エクセルの実際のシート名を変えるかどちらかをしてください。

1.AltキーとF11キーをいっしょに押して Visual Basic Editor を呼び出します。
2.Visual Basic Editor のメニューから挿入、標準モジュールで、出てきたコードウィンド（右側の白い広い部分）に下記のコード（SubからEnd Subまで）をコピーして貼り付けします。
3.また、Alt+F11キーでワークシートへもどります.
4.エクセルのメニューから、「ツール」、「マクロ」、「マクロ」で出てきたマクロ名（test01）を選択して実行します。


Sub test01()
    Dim myDic As Object, ms As Object, ns As Object
    Dim c As Range, i As Integer, dta As String
    Set myDic = CreateObject("Scripting.Dictionary")
    Set ms = Sheets("Sheet1")
    Set ns = Sheets("Sheet2")
    For i = 2 To 4
        For Each c In ms.Range(ms.Cells(1, "A"), ms.Cells(Rows.Count, "A").End(xlUp))
            dta = c.Value & ":" & c.Offset(0, 1).Value
            If Not myDic.exists(dta) Then
                myDic.Add dta, c.Offset(0, i).Value
            Else
                myDic(dta) = myDic(dta) + c.Offset(0, i).Value
            End If
        Next c
        ns.Range("A1").Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Keys)
        ns.Cells(1, i).Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Items)
        myDic.RemoveAll
    Next i
    ns.Columns("B:B").Insert Shift:=xlToRight
    ns.Columns("A:A").TextToColumns Destination:=Range("A1"), OtherChar:=":"
    Set myDic = Nothing
    Set ms = Nothing
    Set ns = Nothing
End Sub

gyouda1114 · Answer

作業セルを使ってオートフィルタとSUBTOTAL関数で

C列を挿入し、C2に　=A3&"/"&B3　下方にオートフィル
オートフィルタを設定し、C列で抽出
抽出したデータの合計を出す最下行に
　=SUBTOTAL(9,D2:D5)
で可視セルの合計が計算される。

ただし、「組み合わせが100通り」だと抽出は大変ですが！
お試しを
　
オートフィルタ(データ抽出)
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filter.htm

データベースやリストの集計はお任せ関数「SUBTOTAL」
これだけで１１種類の集計が出来ちゃうよ＾＾
http://akubizzz.hp.infoseek.co.jp/sub91.html

tom04 · Answer

こんばんは！
一例ですが・・・
A列の商品数とB列の色の数によって組み合わせの数がかなりの量になると考えられます。
しかしとりあえずオートフィルタなどで別Sheetにその組み合わせの数だけの表を作るしかないのではないでしょうか？
Sheet1に元データがあり、オートフィルタで商品と色の組み合わせを表示させ
一つ一つSheet2にコピーします。
その後、↓の画像でいえば、Sheet2のC2セルに
=SUMPRODUCT((Sheet1!$A$2:$A$10=Sheet2!$A2)*(Sheet1!$B$2:$B$10=Sheet2!$B2)*(Sheet1!C$2:C$10))
としてオートフィルでコピーしてみてください。
(※データは300行あるみたいなので数式の「10」のところをアレンジしてください。)
何とか数の合計は出来ると思います。
このSheet2の表を作るための質問のような感じもしますが・・・
この程度の回答しか出来ませんが、
的外れの回答なら読み流してください。m(__)m

merlionXX · Answer

300行までなら
C列の合計は
=SUMPRODUCT((A1:A300="Ｔシャツ")*(B1:B300="ホワイト")*C1:C300)
D列の合計は
=SUMPRODUCT((A1:A300="Ｔシャツ")*(B1:B300="ホワイト")*D1:D300)
ででますよ。
ブラックはどこをなおせばいいかわかりますよね。

エクセル 複数行ある同一商品を1行にまとめるには？

見当違いの返答でしたらごめんなさい。

merlionXXです。

No4で貼ったコードにコピーミスがあったので貼りなおします。

この回答への補足

No1で回答したmerlionXXです。

作業セルを使ってオートフィルタとSUBTOTAL関数で

こんばんは！

300行までなら

この回答への補足

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

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

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

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

エクセル　複数行ある同一商品を1行にまとめるには？