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

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

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

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

作業セルを使ってオートフィルタと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

こんばんは！ 一例ですが・・・ 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

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