[[20190815015539]]　『複数の条件を満たすセルの合計』（レイ）　ページの最後に飛ぶ

『複数の条件を満たすセルの合計』（レイ）

【Sheet1】
　A列　　　　B列・・・　E列
A2-00-01　　4　　　　　1000
A2-00-01　　4　　　　　2000
A3-00-02　　2　　　　　1000
A3-00-02　　1　　　　　1500
A4-01-00　　5　　　　　2000
A4-01-00　　5　　　　　1000
A4-01-00　　2　　　　　3000
A1-01-00　　2　　　　　2000
A1-01-00　　1　　　　　1000
A1-01-01　　3　　　　　1500

上記のようなデータがあるのですが、A列とB列が同じ場合
Sheet2へSheet1のA列とB列を出力してかつE列の合計を出したいのですが
うまく伝わらずすみません。
結果は下記のようにしたいのですが

　【Sheet2】

   A列　　　 B列　　　 C列
A2-00-01　　　4　　　　3000
A3-00-02      2　　　　1000
A3-00-02      1　　　　1500
A4-01-00      5　　　　3000
A4-01-00      2　　　　3000
A1-01-00      2　　　　2000
A1-01-00      1　　　　1000
A1-01-01　    3　　　　1500

Vlookupを使ったりIF文で考えたりしてみたのですが
知識が浅いためいまいちわかりません。
方法あればご教示ください

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 VBAですが
 Sub Test()
    Dim myDic As Object, c As Range
    Dim i As Long, tmp As String
    Dim d As Variant, j As Long

    Set myDic = CreateObject("Scripting.Dictionary")
    With Worksheets("Sheet1")
        For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
            tmp = .Cells(i, "A").Value & .Cells(i, "B").Value
            myDic(tmp) = myDic(tmp) + .Cells(i, "E").Value
        Next
    End With
    With Worksheets("Sheet2")
        For Each d In myDic.keys
            j = j + 1
            .Cells(j, "A").Value = Left(d, 8)
            .Cells(j, "B").Value = Right(d, 1)
            .Cells(j, "C").Value = myDic(d)
        Next d
    End With
 End Sub
（ピンク） 2019/08/15(木) 05:10

 おはようございます。

 項目の部分は、A列B列を選択した状態でデータ→重複の削除で整形して
 C列は、↓でどうでしょうか？

 A2-00-01	4	3000　=SUMIFS(Sheet1!$C$1:$C$10,Sheet1!$A$1:$A$10,A1,Sheet1!$B$1:$B$10,B1)
 A3-00-02	2	1000
 A3-00-02	1	1500
 A4-01-00	5	3000
 A4-01-00	2	3000
 A1-01-00	2	2000
 A1-01-00	1	1000
 A1-01-01	3	1500
（SoulMan） 2019/08/15(木) 06:54

 ピボットテーブルではダメなんですかね？

 ↓ なふうになります
　
A1-01-00	1	1000
　　　　　　　　2	2000
A1-01-01	3	1500
A2-00-01	4	3000
A3-00-02	1	1500
　　　　　　　　2	1000
A4-01-00	2	3000
　　　　　　　　5	3000

 ↓ な形にもできます
　
A1-01-00	1	1000
A1-01-00	2	2000
A1-01-01	3	1500
A2-00-01	4	3000
A3-00-02	1	1500
A3-00-02	2	1000
A4-01-00	2	3000
A4-01-00	5	3000

 参考まで
（笑） 2019/08/15(木) 10:13

コメント返信：

[ 一覧(最新更新順) ]

[[20190815015539]] 『複数の条件を満たすセルの合計』（レイ） ページの最後に飛ぶ

[[20190815015539]]　『複数の条件を満たすセルの合計』（レイ）　ページの最後に飛ぶ