Excelで同一のデータを抽出して横並びに

質問

A 　　　　B 　C 　　　 D
商品コード 注文数　 商品コード 注文数
aaa 　　　　15 　ccc 　　　 4
bbb 　　　　 12 　ddd 　　　 6
ccc 　　　　10 　aaa 　　　 22
ddd 　　　　6 　 eee 　　　 10
eee 　　　　5 　 bbb 　　　 7
fff 　　　　　 8 kkk 9
kkk 7 lll 4

上記のようなデータを
以下のように同じ商品コードを横並びに表示させたいのですが
どういったcountifとかで試したのですが上手くいかず、どのような関数を使えば可能でしょうか？

A 　　　　B 　C 　　　 D
商品コード 注文数　 商品コード 注文数
aaa 　　　　15 　aaa 　　　 22
bbb 　　　　 12 　bbb 　　　 7
ccc 　　　　10 　ccc 　　　 4
ddd 　　　　6 　 ddd 　　　 6
eee 　　　　5 　 eee 　　　 10
fff 　　　　　 8
kkk 7 kkk 9
lll 4

宜しくお願い致します。

回答No.1

kkkkkm · ベストアンサー

関数は別のセルに値をVlookupなどで表示することになると思いますが
lll 4
の処理が分からないのでマクロでしたら

Sub Test()
Dim buf As Variant
Dim FRng As Range
Dim i As Long, j As Long, BRow As Long

With Sheets("Sheet1")
j = 1
buf = .Range(.Cells(2, "C"), .Cells(Rows.Count, "D").End(xlUp))
.Range(.Cells(2, "C"), .Cells(Rows.Count, "D").End(xlUp)).ClearContents
BRow = .Cells(Rows.Count, "B").End(xlUp).Row
For i = LBound(buf, 1) To UBound(buf, 1)
Set FRng = .Range(.Cells(2, "A"), .Cells(BRow, "B")).Find(What:=buf(i, 1), LookIn:=xlValues, LookAt:=xlWhole)
If Not FRng Is Nothing Then
.Cells(FRng.Row, "C").Value = buf(i, 1)
.Cells(FRng.Row, "D").Value = buf(i, 2)
Else
.Cells(BRow + j, "C").Value = buf(i, 1)
.Cells(BRow + j, "D").Value = buf(i, 2)
j = j + 1
End If
Next
End With
End Sub

お礼

ご丁寧にありがとうございます！
さっそく試させていただきます！